start-drag-timer ( -- )

Vocabulary

ui.gestures

Inputs

None

Outputs

None

Definition

USING: boxes calendar kernel namespaces sequences timers ;

IN: ui.gestures

: start-drag-timer ( -- )
    hand-buttons get-global empty? [
        [ drag-gesture ] 300 milliseconds 100 milliseconds
        <timer>
        [ drag-timer get-global >box ] [ start-timer ] bi
    ] when ;