1 ! Copyright (C) 2006, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.syntax cocoa cocoa.nibs cocoa.application
4 cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.runtime
5 cocoa.subclassing core-foundation core-foundation.strings
6 help.topics kernel memory namespaces parser system ui
7 ui.tools.browser ui.tools.listener ui.backend.cocoa eval
8 locals vocabs.refresh ;
9 FROM: alien.c-types => int void ;
10 IN: ui.backend.cocoa.tools
12 : finder-run-files ( alien -- )
13 CF>string-array listener-run-files
14 NSApp NSApplicationDelegateReplySuccess
15 -> replyToOpenOrPrint: ;
17 : menu-run-files ( -- )
18 open-panel [ listener-run-files ] when* ;
20 : menu-save-image ( -- )
21 image save-panel [ save-image ] when* ;
23 ! Handle Open events from the Finder
25 { +superclass+ "FactorApplicationDelegate" }
26 { +name+ "FactorWorkspaceApplicationDelegate" }
29 { "application:openFiles:" void { id SEL id id }
30 [ [ 3drop ] dip finder-run-files ]
33 { "applicationShouldHandleReopen:hasVisibleWindows:" int { id SEL id int }
34 [ [ 3drop ] dip 0 = [ show-listener ] when 1 ]
37 { "factorListener:" id { id SEL id }
38 [ 3drop show-listener f ]
41 { "factorBrowser:" id { id SEL id }
42 [ 3drop show-browser f ]
45 { "newFactorListener:" id { id SEL id }
46 [ 3drop listener-window f ]
49 { "newFactorBrowser:" id { id SEL id }
50 [ 3drop browser-window f ]
53 { "runFactorFile:" id { id SEL id }
54 [ 3drop menu-run-files f ]
57 { "saveFactorImage:" id { id SEL id }
61 { "saveFactorImageAs:" id { id SEL id }
62 [ 3drop menu-save-image f ]
65 { "refreshAll:" id { id SEL id }
66 [ 3drop [ refresh-all ] \ refresh-all call-listener f ]
69 : install-app-delegate ( -- )
70 NSApp FactorWorkspaceApplicationDelegate install-delegate ;
72 ! Service support; evaluate Factor code from other apps
73 :: do-service ( pboard error quot -- )
74 pboard error ?pasteboard-string
75 dup [ quot call( string -- result/f ) ] when
76 [ pboard set-pasteboard-string ] when* ;
79 { +superclass+ "NSObject" }
80 { +name+ "FactorServiceProvider" }
82 "evalInListener:userData:error:"
85 [ nip [ eval-listener f ] do-service 2drop ]
87 "evalToString:userData:error:"
90 [ nip [ eval>string ] do-service 2drop ]
93 : register-services ( -- )
95 FactorServiceProvider -> alloc -> init
96 -> setServicesProvider: ;
98 FUNCTION: void NSUpdateDynamicServices ;
102 "Factor.nib" load-nib
104 ] cocoa-startup-hook set-global