iterate-system ( GADGET -- )

Vocabulary

trails

Inputs

GADGET

an object

Outputs

None

Definition

USING: accessors circular kernel namespaces ui.gestures ;

IN: trails

:: iterate-system ( GADGET -- )
    hand-gadget get GADGET = [ mouse ] [ f ] if
    GADGET points>> circular-push ;