exit-fullscreen ( world -- )

Vocabulary

ui.backend.cocoa

Inputs

world

an object

Outputs

None

Definition

USING: accessors alien.c-types cocoa.messages cocoa.runtime
kernel ;

IN: ui.backend.cocoa

: exit-fullscreen ( world -- )
    handle>> [
        view>> f
        { void { id SEL id } } "exitFullScreenModeWithOptions:"
        send
    ] [
        [ window>> ] [ view>> ] bi
        { char { id SEL id } } "makeFirstResponder:" send drop
    ] bi ;