send-mouse-moved ( view event -- )

Vocabulary

ui.backend.cocoa.views

Inputs

view	an object
event	an object

Outputs

None

Definition

USING: accessors alien.c-types arrays cocoa.messages
cocoa.runtime cocoa.views kernel math.vectors namespaces threads
ui.backend.input-state ui.gestures ui.private ;

IN: ui.backend.cocoa.views

: send-mouse-moved ( view event -- )
    dup
    [ { double { id SEL } } "deltaX" send ]
    [ { double { id SEL } } "deltaY" send ] bi 2array
    current-input-state get-global swap '[ _ v+ ] change-motion
    drop [ mouse-location ] [ drop window ] 2bi
    [ move-hand fire-motion yield ] [ drop ] if* ;