Services fix

2006-10-24 00:13:06 +00:00 · 2006-10-24 00:13:06 +00:00 · 89a8856a8e
parent f20c72ae93
commit 89a8856a8e
2 changed files with 2 additions and 1 deletions
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@ -14,6 +14,7 @@
 - growable data heap
 - more compact relocation info
 - flip may fail with >64kb string
+- services broken
 - documentation:
  - document columns
  - update module system docs
--- a/library/ui/cocoa/services.factor
+++ b/library/ui/cocoa/services.factor
@ -29,7 +29,7 @@ parser prettyprint styles gadgets-listener gadgets-workspace ;
        { "id" "SEL" "id" "id" "void*" }
        [
            nip
-            [ call-listener f ]
+            [ <input> listener-gadget call-tool f ]
            do-service
            2drop
        ]