send-key-down-event ( view event -- )


Vocabulary
ui.backend.cocoa.views

Inputs
viewan object
eventan object


Outputs
None

Definition
USING: alien.c-types cocoa.messages cocoa.runtime kernel
ui.backend.input-state ui.gestures ;

IN: ui.backend.cocoa.views

: send-key-down-event ( view event -- )
dup { ushort { id SEL } } "keyCode" send t record-key
[ key-event>gesture <key-down> send-key-event ]
[ interpret-key-event ] 2bi ;