! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: gadgets USING: generic kernel math namespaces ; global [ 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 ] bind