(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 ;


USING: accessors gtk2.ffi kernel ui.backend ui.backend.gtk2
ui.event-loop ui.private ;

M: gtk2-ui-backend (close-window)
    window>> [ gtk_widget_destroy ] [ unregister-window ] bi
    event-loop? [ gtk_main_quit ] unless ;