(open-window) ( world -- )

Vocabulary

ui.backend

Inputs

world

a world

Outputs

None

Word description

Opens a native window containing the given world. This grafts the world by calling graft. Each world can only be displayed in one top-level window at a time.

Notes

This word should not be called directly by user code. Instead, use open-window.

Definition

IN: ui.backend

HOOK: (open-window) ui-backend ( world -- )

Methods

USING: accessors alien.c-types cocoa.messages cocoa.runtime
cocoa.windows kernel sequences ui.backend ui.backend.cocoa
ui.backend.cocoa.views ui.gadgets.worlds ui.private ;

M:: cocoa-ui-backend (open-window) ( world -- )
    world [ [ dim>> ] dip <FactorView> ] with-world-pixel-format
    :> view world window-controls>> textured-background swap
    member-eq? [ view make-context-transparent ] when view world
    [ world>NSRect ] [ world>styleMask ] bi <ViewWindow>
    :> window view { void { id SEL } } "release" send
    world view register-window
    window world window-loc>> auto-position
    world window save-position window install-window-delegate
    view window <window-handle> world handle<< window f
    { void { id SEL id } } "makeKeyAndOrderFront:" send
    t world active?<< ;


USING: accessors alien.strings gtk2.ffi io.encodings.utf8 kernel
sequences ui.backend ui.backend.gtk2 ui.private ;

M:: gtk2-ui-backend (open-window) ( world -- )
    GTK_WINDOW_TOPLEVEL gtk_window_new :> win
    gtk_drawing_area_new :> drawable win drawable
    gtk_container_add
    gtk_im_multicontext_new :> im win drawable im
    <window-handle> world handle<< world win register-window
    win world
    [ window-loc>> auto-position ]
    [ dim>> first2 gtk_window_set_default_size ] 2bi
    win "factor" "Factor" [ utf8 string>alien ] bi@
    gtk_window_set_wmclass world configure-gl
    win events-mask gtk_widget_add_events win gtk_widget_realize
    win connect-user-input-signals win connect-win-state-signals
    win im configure-im world handle>> connect-configure-signal
    drawable connect-expose-sigal
    win world window-controls>> configure-window-controls
    win gtk_widget_show_all ;