steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

more useful root menu in Factory

darcs
wayo.cavazos 2006-02-17 01:46:49 +00:00
parent 34496556d1
commit 45d11b25c9
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/factory/factory.factor
View File

@ -27,11 +27,9 @@ SYMBOL: root-menu
: setup-root-menu ( -- )
create-menu root-menu set
"black" lookup-color root-menu get set-window-background%
"xterm" [ "launch program..." print ] root-menu get add-popup-menu-item
"xlogo" [ "launch program..." print ] root-menu get add-popup-menu-item
"xclock" [ "launch program..." print ] root-menu get add-popup-menu-item
"xload" [ "launch program..." print ] root-menu get add-popup-menu-item
"emacs" [ "launch program..." print ] root-menu get add-popup-menu-item
"Terminal" [ "gnome-terminal &" system ] root-menu get add-popup-menu-item
"Emacs" [ "emacs &" system ] root-menu get add-popup-menu-item
"Firefox" [ "firefox &" system ] root-menu get add-popup-menu-item
"Workspaces"
[ workspace-menu get popup-window% ] root-menu get add-popup-menu-item ;