--- a/Behavior.st Wed Sep 16 21:14:02 2009 +0200
+++ b/Behavior.st Wed Sep 16 21:21:59 2009 +0200
@@ -989,18 +989,35 @@
!Behavior methodsFor:'Compatibility-Dolphin'!
allSubinstances
+ "Compatibility method - do not use in new code.
+ Same as allSubInstances; added for Dolphin compatibility"
+
^ self allSubInstances
!
fromString:aString
+ "reconstruct an instance of myself from the ascii-store string.
+ These bytes are typically the result from storing into a string/stream.
+ Same as readFrom:, for Dolphin compatibility."
+
^ self readFrom:aString
!
guid:aUUID
- ^ self
+ "Compatibility method - do not use in new code.
+ An ignored dummy; for Dolphin compatibility."
+
+ "/ intentionally left blank - for now
!
lookupMethod:selector
+ "Compatibility method - do not use in new code.
+ Return the method for given selector aSelector or nil.
+ Only methods in the receiver - not in the superclass chain are returned.
+ For dolphin compatibility.
+ TODO: fixme if I am wrong, and dolphin does a full lookup here. If that is the case,
+ change to use lookupMethodFor:aSelector below."
+
^ self compiledMethodAt:selector
! !
@@ -1095,7 +1112,6 @@
! !
-
!Behavior methodsFor:'accessing'!
addSelector:newSelector withMethod:newMethod
@@ -4468,5 +4484,5 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.285 2009-02-17 10:07:27 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.286 2009-09-16 19:21:59 cg Exp $'
! !