2005-03-01 22:19:26 -05:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: gadgets
|
2005-03-02 21:26:11 -05:00
|
|
|
USING: kernel memory namespaces stdio ;
|
2005-03-01 22:19:26 -05:00
|
|
|
|
|
|
|
|
SYMBOL: root-menu
|
|
|
|
|
|
|
|
|
|
: show-root-menu ( -- )
|
|
|
|
|
root-menu get <menu> show-menu ;
|
|
|
|
|
|
|
|
|
|
[
|
2005-05-03 19:00:52 -04:00
|
|
|
[[ "Listener" [ console ] ]]
|
2005-03-01 22:19:26 -05:00
|
|
|
[[ "Globals" [ global inspect ] ]]
|
2005-04-30 14:27:40 -04:00
|
|
|
[[ "Save image" [ save ] ]]
|
2005-03-01 22:19:26 -05:00
|
|
|
[[ "Exit" [ f world get set-world-running? ] ]]
|
|
|
|
|
] root-menu set
|
|
|
|
|
|
2005-03-22 21:20:58 -05:00
|
|
|
world get [ show-root-menu ] [ button-down 1 ] set-action
|
