! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: gadgets
USING: errors gadgets-layouts gadgets-listener gadgets-theme
generic help io kernel listener lists math memory namespaces
opengl prettyprint sdl sequences shells styles threads words ;

: init-world ( -- )
    global [
        <world> world set
        world get solid-interior
        world get world-theme
        @{ 800 600 0 }@ world get set-gadget-dim
        <hand> hand set
        listener-application
    ] bind ;

SYMBOL: first-time

global [ first-time on ] bind

: ?init-world
    global [
        first-time get [ init-world first-time off ] when
    ] bind ;

: check-running
    world get [
        world-running?
        [ "The UI is already running" throw ] when
    ] when* ;

IN: shells

: ui ( -- )
    #! Start the Factor graphics subsystem with the given screen
    #! dimensions.
    init-ttf
    ?init-world
    check-running world get rect-dim first2
    0 gl-flags [ run-world ] with-screen ;