! Copyright (C) 2005 Slava Pestov. ! See http://factor.sf.net/license.txt for BSD license. IN: gadgets USING: kernel memory namespaces stdio ; SYMBOL: root-menu : show-root-menu ( -- ) root-menu get show-menu ; : ( -- console ) ; [ [[ "Listener" [ "Listener" world get add-gadget ] ]] [[ "Globals" [ global inspect ] ]] [[ "Save image" [ "image" get save-image ] ]] [[ "Exit" [ f world get set-world-running? ] ]] ] root-menu set world get [ show-root-menu ] [ button-down 1 ] set-action