--- a/ExecutableFunction.st	Tue Apr 16 15:42:16 1996 +0200
+++ b/ExecutableFunction.st	Tue Apr 16 16:40:00 1996 +0200
@@ -177,9 +177,85 @@
 %}
 ! !
 
+!ExecutableFunction methodsFor:'queries'!
+
+category
+    "return the category of this codeObject.
+     Return nil here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ nil
+
+    "Created: 16.4.1996 / 16:31:15 / cg"
+!
+
+isInvalid
+    "return true, if this codeObject is invalidated.
+     Return false here, to alow alien codeObjects to be handled by the
+     browsers."
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:31:42 / cg"
+!
+
+isLazyMethod
+    "return true, if this is a lazy method.
+     False is returned here - this method is redefined in LazyMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:32:11 / cg"
+    "Modified: 16.4.1996 / 16:32:36 / cg"
+!
+
+isWrapped
+    "return true, if this is a wrapper method.
+     False is returned here - this method is redefined in WrappedMethod"
+
+    ^ false
+
+    "Created: 16.4.1996 / 16:33:24 / cg"
+!
+
+privacy
+    "return a symbol describing the methods access rights (privacy);
+     Currently, this is one of #private, #protected, #public or #ignored.
+
+     Here we unconditionally return #public, to allow alien code objects
+     to be handled by the browsers."
+
+    ^ #public
+
+    "Created: 16.4.1996 / 16:35:18 / cg"
+!
+
+referencesGlobal:aGlobalSymbol
+    "return true, if this method references the global
+     bound to aGlobalSymbol.
+     Return false (we dont know) here, to allow alien code objects to be
+     handled by the browsers."
+
+     ^ false
+
+    "Created: 16.4.1996 / 16:37:48 / cg"
+!
+
+sends:aSelectorSymbol
+    "return true, if this method contains a message-send
+     with aSelectorSymbol as selector. 
+     - due to the simple check in the literal array, also simple uses 
+       of aSelectorSymbol as symbol will return true.
+       Should ask compiler, if there is really a send."
+
+    ^ self referencesGlobal:aSelectorSymbol
+
+    "Created: 16.4.1996 / 16:35:53 / cg"
+! !
+
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.21 1996-04-16 09:27:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.22 1996-04-16 14:39:07 cg Exp $'
 ! !
 ExecutableFunction initialize!