factor/library/ui/tool-menus.factor

22 lines
577 B
Factor
Raw Normal View History

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-03-02 21:26:11 -05:00
: <console> ( -- console )
2005-03-06 19:46:29 -05:00
<console-pane> <scroller> ;
2005-03-02 21:26:11 -05:00
2005-03-01 22:19:26 -05:00
[
2005-03-06 19:46:29 -05:00
[[ "Listener" [ <console> "Listener" <tile> world get add-gadget ] ]]
2005-03-01 22:19:26 -05:00
[[ "Globals" [ global inspect ] ]]
[[ "Save image" [ "image" get save-image ] ]]
[[ "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