1 ! Copyright (C) 2006, 2007 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.subclassing
5 core-foundation help.topics kernel memory namespaces parser
6 system ui ui.tools.browser ui.tools.listener ui.tools.workspace
10 : finder-run-files ( alien -- )
11 CF>string-array listener-run-files
12 NSApp NSApplicationDelegateReplySuccess
13 -> replyToOpenOrPrint: ;
15 : menu-run-files ( -- )
16 open-panel [ listener-run-files ] when* ;
18 : menu-save-image ( -- )
19 image save-panel [ save-image ] when* ;
21 ! Handle Open events from the Finder
23 { +superclass+ "NSObject" }
24 { +name+ "FactorApplicationDelegate" }
27 { "application:openFiles:" "void" { "id" "SEL" "id" "id" }
28 [ >r 3drop r> finder-run-files ]
31 { "newFactorWorkspace:" "id" { "id" "SEL" "id" }
32 [ 3drop workspace-window f ]
35 { "runFactorFile:" "id" { "id" "SEL" "id" }
36 [ 3drop menu-run-files f ]
39 { "saveFactorImage:" "id" { "id" "SEL" "id" }
43 { "saveFactorImageAs:" "id" { "id" "SEL" "id" }
44 [ 3drop menu-save-image f ]
47 { "showFactorHelp:" "id" { "id" "SEL" "id" }
48 [ 3drop "handbook" com-follow f ]
51 : install-app-delegate ( -- )
52 NSApp FactorApplicationDelegate install-delegate ;
54 ! Service support; evaluate Factor code from other apps
55 :: do-service ( pboard error quot -- )
56 pboard error ?pasteboard-string
57 dup [ quot call ] when
58 [ pboard set-pasteboard-string ] when* ;
61 { +superclass+ "NSObject" }
62 { +name+ "FactorServiceProvider" }
64 "evalInListener:userData:error:"
66 { "id" "SEL" "id" "id" "void*" }
67 [ nip [ eval-listener f ] do-service 2drop ]
69 "evalToString:userData:error:"
71 { "id" "SEL" "id" "id" "void*" }
72 [ nip [ eval>string ] do-service 2drop ]
75 : register-services ( -- )
77 FactorServiceProvider -> alloc -> init
78 -> setServicesProvider: ;
80 FUNCTION: void NSUpdateDynamicServices ;
86 ] cocoa-init-hook set-global