From 996b2ef939b15591a01d9f11c93f02ae0962a4a8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 8 Jan 2009 19:30:35 -0600
Subject: [PATCH] Re-organize menu bar on Mac OS X
---
basis/ui/cocoa/tools/tools.factor | 20 ++++++++++++++++----
1 file changed, 16 insertions(+), 4 deletions(-)
diff --git a/basis/ui/cocoa/tools/tools.factor b/basis/ui/cocoa/tools/tools.factor
index 52b25f4030..2c2e0273a8 100644
--- a/basis/ui/cocoa/tools/tools.factor
+++ b/basis/ui/cocoa/tools/tools.factor
@@ -4,7 +4,7 @@ USING: alien.syntax cocoa cocoa.nibs cocoa.application
cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.subclassing
core-foundation core-foundation.strings help.topics kernel
memory namespaces parser system ui ui.tools.browser
-ui.tools.listener ui.cocoa eval locals ;
+ui.tools.listener ui.cocoa eval locals tools.vocabs ;
IN: ui.cocoa.tools
: finder-run-files ( alien -- )
@@ -28,10 +28,22 @@ CLASS: {
[ [ 3drop ] dip finder-run-files ]
}
-{ "newFactorWorkspace:" "id" { "id" "SEL" "id" }
+{ "factorListener:" "id" { "id" "SEL" "id" }
+ [ 3drop show-listener f ]
+}
+
+{ "factorBrowser:" "id" { "id" "SEL" "id" }
+ [ 3drop show-browser f ]
+}
+
+{ "newFactorListener:" "id" { "id" "SEL" "id" }
[ 3drop listener-window f ]
}
+{ "newFactorBrowser:" "id" { "id" "SEL" "id" }
+ [ 3drop browser-window f ]
+}
+
{ "runFactorFile:" "id" { "id" "SEL" "id" }
[ 3drop menu-run-files f ]
}
@@ -44,8 +56,8 @@ CLASS: {
[ 3drop menu-save-image f ]
}
-{ "showFactorHelp:" "id" { "id" "SEL" "id" }
- [ 3drop "handbook" com-follow f ]
+{ "refreshAll:" "id" { "id" "SEL" "id" }
+ [ 3drop [ refresh-all ] call-listener f ]
} ;
: install-app-delegate ( -- )