--- a/Object.st Sun Aug 01 12:11:07 2010 +0100
+++ b/Object.st Tue Aug 10 09:55:15 2010 +0100
@@ -526,6 +526,7 @@
! !
+
!Object methodsFor:'Compatibility-Dolphin'!
stbFixup: anSTBInFiler at: newObjectIndex
@@ -575,18 +576,6 @@
self becomeSameAs:anotherObject
!
-caseOf:collectionOfKeyValuePairs otherwise:exceptionValue
- "as this is not compiled inline (for now), this is slow and only present for
- squeak compatibility"
-
- collectionOfKeyValuePairs do:[:eachPair |
- self = eachPair key value ifTrue:[
- ^ eachPair value value
- ].
- ].
- ^ exceptionValue value
-!
-
clone
^ self shallowCopy
!
@@ -699,6 +688,8 @@
"
! !
+
+
!Object methodsFor:'accessing'!
at:index
@@ -1866,6 +1857,7 @@
^ self
! !
+
!Object methodsFor:'comparing'!
= anObject
@@ -2075,7 +2067,7 @@
"compare the instance variables"
sz := myClass instSize.
- anObject instSize >= sz ifFalse:[^ false].
+ anObject class instSize >= sz ifFalse:[^ false].
1 to:sz do:[:i |
(self instVarAt:i) == (anObject instVarAt:i) ifFalse:[^ false].
@@ -2088,8 +2080,8 @@
(1@2) sameContentsAs:(1->2)
"
- "Created: / 21.4.1998 / 15:56:40 / cg"
- "Modified: / 21.4.1998 / 15:58:15 / cg"
+ "Created: / 21-04-1998 / 15:56:40 / cg"
+ "Modified: / 05-08-2010 / 16:44:09 / sr"
!
~= anObject
@@ -7199,6 +7191,7 @@
^ self
! !
+
!Object methodsFor:'secure message sending'!
askFor:aSelector
@@ -9335,15 +9328,16 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Id: Object.st 10554 2010-07-22 14:39:35Z vranyj1 $'
+ ^ '$Id: Object.st 10564 2010-08-10 08:55:15Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Object.st,v 1.650 2010/04/07 14:33:48 cg Exp '
+ ^ 'Header: /cvs/stx/stx/libbasic/Object.st,v 1.651 2010/08/05 15:40:40 sr Exp '
!
version_SVN
- ^ '$Id: Object.st 10554 2010-07-22 14:39:35Z vranyj1 $'
+ ^ '$Id: Object.st 10564 2010-08-10 08:55:15Z vranyj1 $'
! !
Object initialize!
+