key-code ( event -- string ? )

Vocabulary

ui.backend.cocoa.views

Inputs

event

an object

Outputs

string	an object
?	an object

Definition

USING: alien.c-types assocs cocoa.messages cocoa.runtime
core-foundation.strings kernel ;

IN: ui.backend.cocoa.views

: key-code ( event -- string ? )
    dup { ushort { id SEL } } "keyCode" send key-codes at or?
    [ t ] [
        { id { id SEL } } "charactersIgnoringModifiers" send
        CF>string f
    ] if ;