factor/library/ui/init-world.factor

! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: gadgets
USING: generic io kernel listener math namespaces styles threads ;


global [
    <world> world set
    
    {{
        [[ background [ 255 255 255 ] ]]
        [[ rollover-bg [ 255 255 204 ] ]]
        [[ foreground [ 0 0 0 ] ]]
        [[ reverse-video f ]]
        [[ font "Sans Serif" ]]
        [[ font-size 12 ]]
        [[ font-style plain ]]
    }} world get set-gadget-paint
    
    { 1024 768 0 } world get set-gadget-dim
    
    <plain-gadget> add-layer

    <pane> dup
    
    <scroller> "Stack display goes here" <label> 3/4 <y-splitter> add-layer
    
    dup [ [ clear  print-banner listener ] in-thread ] with-stream
    
    request-focus
] bind