From 646a88fbf2df531faab4bbd6aa36a937ab71d688 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 10 Feb 2010 11:47:06 +1300
Subject: [PATCH] ui.backend.cocoa.tools: use interactive-vocabs for 'evaluate
 selection' service

---
 basis/ui/backend/cocoa/tools/tools.factor | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/basis/ui/backend/cocoa/tools/tools.factor b/basis/ui/backend/cocoa/tools/tools.factor
index 00c1ad3583..89fd8e7708 100644
--- a/basis/ui/backend/cocoa/tools/tools.factor
+++ b/basis/ui/backend/cocoa/tools/tools.factor
@@ -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.
 USING: alien.syntax cocoa cocoa.nibs cocoa.application
 cocoa.classes cocoa.dialogs cocoa.pasteboard cocoa.runtime
 cocoa.subclassing core-foundation core-foundation.strings
 help.topics kernel memory namespaces parser system ui
 ui.tools.browser ui.tools.listener ui.backend.cocoa eval
-locals vocabs.refresh ;
+locals listener vocabs.refresh ;
 FROM: alien.c-types => int void ;
 IN: ui.backend.cocoa.tools
 
@@ -82,12 +82,20 @@ CLASS: {
     "evalInListener:userData:error:"
     void
     { id SEL id id id }
-    [ nip [ eval-listener f ] do-service 2drop ]
+    [
+        nip
+        [ eval-listener f ] do-service
+        2drop
+    ]
 } {
     "evalToString:userData:error:"
     void
     { id SEL id id id }
-    [ nip [ eval>string ] do-service 2drop ]
+    [
+        nip
+        [ [ (eval>string) ] with-interactive-vocabs ] do-service
+        2drop
+    ]
 } ;
 
 : register-services ( -- )