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

Re-organize menu bar on Mac OS X

db4
Slava Pestov 2009-01-08 19:30:35 -06:00
parent 70a0c39896
commit 996b2ef939
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/ui/cocoa/tools/tools.factor
View File

@ -4,7 +4,7 @@ USING: alien.syntax cocoa cocoa.nibs cocoa.application
cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.subclassing cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.subclassing
core-foundation core-foundation.strings help.topics kernel core-foundation core-foundation.strings help.topics kernel
memory namespaces parser system ui ui.tools.browser 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 IN: ui.cocoa.tools
: finder-run-files ( alien -- ) : finder-run-files ( alien -- )
@ -28,10 +28,22 @@ CLASS: {
[ [ 3drop ] dip finder-run-files ] [ [ 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 ] [ 3drop listener-window f ]
} }
{ "newFactorBrowser:" "id" { "id" "SEL" "id" }
[ 3drop browser-window f ]
}
{ "runFactorFile:" "id" { "id" "SEL" "id" } { "runFactorFile:" "id" { "id" "SEL" "id" }
[ 3drop menu-run-files f ] [ 3drop menu-run-files f ]
} }
@ -44,8 +56,8 @@ CLASS: {
[ 3drop menu-save-image f ] [ 3drop menu-save-image f ]
} }
{ "showFactorHelp:" "id" { "id" "SEL" "id" } { "refreshAll:" "id" { "id" "SEL" "id" }
[ 3drop "handbook" com-follow f ] [ 3drop [ refresh-all ] call-listener f ]
} ; } ;
: install-app-delegate ( -- ) : install-app-delegate ( -- )