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 kernel math namespaces ;


global [
    <world> world set
    
    {{

        [[ background [ 255 255 255 ] ]]
        [[ foreground [ 0 0 0 ] ]]
        [[ reverse-video f ]]
        [[ font [[ "Sans Serif" 12 ]] ]]
    }} world get set-gadget-paint
    
    1024 768 world get resize-gadget
    
    <plain-gadget> world get add-gadget

    <console> "Stack display goes here" <label> <y-splitter>
    3/4 over set-splitter-split
    world get add-gadget
] bind