raise-window* ( world -- )

Vocabulary

ui.backend

Inputs

world

an object

Outputs

None

Definition

IN: ui.backend

HOOK: raise-window* ui-backend ( world -- )

Methods

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

M: cocoa-ui-backend raise-window*
    handle>> [
        window>> dup f { void { id SEL id } } "orderFront:" send
        { void { id SEL } } "makeKeyWindow" send NSApp 1
        { void { id SEL char } } "activateIgnoringOtherApps:"
        send
    ] when* ;


USING: accessors gtk2.ffi ui.backend ui.backend.gtk2 ;

M: gtk2-ui-backend raise-window*
    handle>> window>> gtk_window_present ;