handle-mouse-motion ( jamshred-gadget -- )

Vocabulary

jamshred

Inputs

jamshred-gadget

an object

Outputs

None

Definition

USING: accessors kernel math.vectors namespaces ui.gestures ;

IN: jamshred

: handle-mouse-motion ( jamshred-gadget -- )
    hand-loc get [
        over last-hand-loc>>
        [ v- (handle-mouse-motion) ] [ 2drop ] if*
    ] 2keep >>last-hand-loc drop ;