fire-motion ( -- )

Vocabulary

ui.gestures

Word description

Sends a motion or drag gesture to the gadget under the mouse, depending on whether a mouse button is being held down or not.

Definition

USING: kernel namespaces sequences ;

IN: ui.gestures

: fire-motion ( -- )
    hand-buttons get-global empty?
    [ motion hand-gadget get-global propagate-gesture ]
    [ drag-gesture ] if ;