(with-ui) ( quot -- )

Vocabulary

ui.backend

Inputs

quot	a quotation

Outputs

None

Generic word contract

Starts the Factor UI.

Notes

This is a low-level word; user code should call with-ui instead.

Definition

IN: ui.backend

HOOK: (with-ui) ui-backend ( quot -- )

Methods

USING: alien.c-types cocoa.application cocoa.messages
cocoa.runtime combinators core-foundation.run-loop io.thread
namespaces ui.backend ui.backend.cocoa ui.private ;

M: cocoa-ui-backend (with-ui)
    "UI" assert.app [
        init-clipboard cocoa-startup-hook get ( -- ) call-effect
        current-theme start-ui
        stop-io-thread init-thread-timer reset-thread-timer
        NSApp { void { id SEL } } "run" send
    ] with-cocoa ;


USING: destructors gtk2.ffi gtk2.gl.ffi kernel ui.backend
ui.backend.gtk2 ui.backend.gtk2.io ui.private ;

M: gtk2-ui-backend (with-ui)
    f f gtk_init_check
    [ "Unable to initialize GTK" throw ] unless f f gtk_gl_init
    load-icon init-clipboard start-ui
    [ [ [ gtk_main ] with-timer ] with-event-loop ]
    with-destructors ;