--- a/ExecFunc.st	Tue Apr 16 20:12:36 1996 +0200
+++ b/ExecFunc.st	Tue Apr 16 20:16:43 1996 +0200
@@ -155,6 +155,14 @@
 
     aStream nextPutAll:self class name; nextPutAll:'(address: 0x';
 	    nextPutAll:(addr printStringRadix:16); nextPutAll:')'
+!
+
+printStringForBrowserWithSelector:selector
+    "return a printString to represent myself to the user"
+
+    ^ selector
+
+    "Modified: 16.4.1996 / 20:11:30 / cg"
 ! !
 
 !ExecutableFunction methodsFor:'private accessing'!
@@ -189,6 +197,15 @@
     "Created: 16.4.1996 / 16:31:15 / cg"
 !
 
+isExecutable
+    "return true, if this codeObject is executable."
+
+    self isInvalid ifTrue:[^ false].
+    ^ self code notNil
+
+    "Created: 16.4.1996 / 20:13:32 / cg"
+!
+
 isInvalid
     "return true, if this codeObject is invalidated.
      Return false here, to alow alien codeObjects to be handled by the
@@ -209,6 +226,15 @@
     "Modified: 16.4.1996 / 16:32:36 / cg"
 !
 
+isUnloaded
+    "return true, if the objects machine code has been unloaded
+     from the system (i.e. it is not executable)."
+
+    ^ self code isNil
+
+    "Created: 16.4.1996 / 20:15:52 / cg"
+!
+
 isWrapped
     "return true, if this is a wrapper method.
      False is returned here - this method is redefined in WrappedMethod"
@@ -256,6 +282,6 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.22 1996-04-16 14:39:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.23 1996-04-16 18:16:43 cg Exp $'
 ! !
 ExecutableFunction initialize!