<gesture-logger> ( stream -- gadget )

Vocabulary

gesture-logger

Inputs

stream

an object

Outputs

gadget

an object

Definition

USING: accessors colors kernel ui.pens.solid ;

IN: gesture-logger

: <gesture-logger> ( stream -- gadget )
    \ gesture-logger new swap >>stream { 100 100 } >>dim
    COLOR: black <solid> >>interior ;