From 45d11b25c9dc57ac5e469f5c26c650e1ef488877 Mon Sep 17 00:00:00 2001 From: "wayo.cavazos" Date: Fri, 17 Feb 2006 01:46:49 +0000 Subject: [PATCH] more useful root menu in Factory --- contrib/factory/factory.factor | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/contrib/factory/factory.factor b/contrib/factory/factory.factor index 5b4927cf50..74bea36e82 100644 --- a/contrib/factory/factory.factor +++ b/contrib/factory/factory.factor @@ -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 ;