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

ui.backend.cocoa.tools: use interactive-vocabs for 'evaluate selection' service

db4
Slava Pestov 2010-02-10 11:47:06 +13:00
parent 301b407f45
commit 646a88fbf2
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/ui/backend/cocoa/tools/tools.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax cocoa cocoa.nibs cocoa.application USING: alien.syntax cocoa cocoa.nibs cocoa.application
cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.runtime cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.runtime
cocoa.subclassing core-foundation core-foundation.strings cocoa.subclassing core-foundation core-foundation.strings
help.topics kernel memory namespaces parser system ui help.topics kernel memory namespaces parser system ui
ui.tools.browser ui.tools.listener ui.backend.cocoa eval ui.tools.browser ui.tools.listener ui.backend.cocoa eval
locals vocabs.refresh ; locals listener vocabs.refresh ;
FROM: alien.c-types => int void ; FROM: alien.c-types => int void ;
IN: ui.backend.cocoa.tools IN: ui.backend.cocoa.tools
@ -82,12 +82,20 @@ CLASS: {
"evalInListener:userData:error:" "evalInListener:userData:error:"
void void
{ id SEL id id id } { id SEL id id id }
[ nip [ eval-listener f ] do-service 2drop ] [
nip
[ eval-listener f ] do-service
2drop
]
} { } {
"evalToString:userData:error:" "evalToString:userData:error:"
void void
{ id SEL id id id } { id SEL id id id }
[ nip [ eval>string ] do-service 2drop ] [
nip
[ [ (eval>string) ] with-interactive-vocabs ] do-service
2drop
]
} ; } ;
: register-services ( -- ) : register-services ( -- )