cocoa: Add more cocoa/objc methods. lookup-method -> lookup-objc-method

[factor.git] / basis / cocoa / cocoa.factor

diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index a0f2af59e440780f07a8616777d5865d23b6bfd8..1bd2d8bb090e15f1a918ece049ea92c6f7974785 100644 (file)
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -13,7 +13,7 @@ sent-messages [ H{ } clone ] initialize
 
 SYNTAX: ->
     scan-token dup remember-send
-    [ lookup-method suffix! ] [ suffix! ] bi \ send suffix! ;
+    [ lookup-objc-method suffix! ] [ suffix! ] bi \ send suffix! ;
 
 SYNTAX: ?->
     dup last cache-stubs
@@ -33,7 +33,7 @@ super-sent-messages [ H{ } clone ] initialize
 
 SYNTAX: SUPER->
     scan-token dup remember-super-send
-    [ lookup-method suffix! ] [ suffix! ] bi \ super-send suffix! ;
+    [ lookup-objc-method suffix! ] [ suffix! ] bi \ super-send suffix! ;
 
 SYMBOL: frameworks
 
@@ -80,6 +80,7 @@ SYNTAX: IMPORT: scan-token [ ] import-objc-class ;
         "NSOpenPanel"
         "NSPanel"
         "NSPasteboard"
+        "NSPopover"
         "NSPropertyListSerialization"
         "NSResponder"
         "NSSavePanel"