--- a/Behavior.st	Tue Sep 21 11:17:08 2004 +0200
+++ b/Behavior.st	Tue Sep 21 11:20:02 2004 +0200
@@ -1045,19 +1045,6 @@
     "Modified: 8.1.1997 / 22:43:13 / cg"
 !
 
-classPool
-    "return something which allows access to my classVariables via
-     #at: and #at:put: messages."
-
-    ^ SimulatedClassPool new setClass:self
-
-    "
-     Button classPool
-    "
-
-    "Modified: 17.10.1997 / 12:12:14 / cg"
-!
-
 displayString
     "although behaviors have no name, we return something
      useful here - there are many places (inspectors) where
@@ -3092,15 +3079,6 @@
     ^ self
 !
 
-sharedPools
-    "shared pools are not (yet) supported by ST/X;
-     return a dummy, empty collection here"
-
-    ^ #()
-
-    "Created: 19.6.1997 / 18:19:36 / cg"
-!
-
 sourceCodeAt:aSelector
     "return the methods source for given selector aSelector or nil.
      Only methods in the receiver - not in the superclass chain are tested."
@@ -4413,5 +4391,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.240 2004-09-13 08:54:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.241 2004-09-21 09:20:02 stefan Exp $'
 ! !