(close-window) ( handle -- )

Vocabulary

ui.backend

Inputs

handle

an object

Outputs

None

Definition

IN: ui.backend

HOOK: (close-window) ui-backend ( handle -- )

Methods

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

M: cocoa-ui-backend (close-window)
    [
        view>> dup { char { id SEL } } "isInFullScreenMode" send
        zero?
        [ drop ] [
            f
            { void { id SEL id } }
            "exitFullScreenModeWithOptions:" send
        ] if
    ] [ window>> { void { id SEL } } "release" send ] bi ;