--- a/Object.st Wed Mar 05 23:12:08 2014 +0100
+++ b/Object.st Wed Mar 05 23:17:45 2014 +0100
@@ -490,7 +490,6 @@
InfoPrinting := aBoolean
! !
-
!Object class methodsFor:'queries'!
isAbstract
@@ -513,8 +512,6 @@
! !
-
-
!Object methodsFor:'Compatibility-Dolphin'!
stbFixup: anSTBInFiler at: newObjectIndex
@@ -676,7 +673,6 @@
"
! !
-
!Object methodsFor:'accessing'!
_at:index
@@ -1706,7 +1702,6 @@
"
! !
-
!Object methodsFor:'attributes access'!
objectAttributeAt:attributeKey
@@ -1843,7 +1838,6 @@
! !
-
!Object methodsFor:'change & update'!
broadcast:aSelectorSymbol
@@ -4008,7 +4002,7 @@
|names encoding cls skipped slots|
self isLiteral ifTrue:[
- ^ self
+ ^ self
].
slots := self literalArrayEncodingSlotOrder.
@@ -4019,22 +4013,22 @@
encoding add:cls name.
slots do:[:instSlot |
- |value nm|
-
- nm := names at:instSlot.
- (skipped includes:nm) ifFalse:[
- (value := self instVarAt:instSlot) notNil ifTrue:[
- encoding add:(nm , ':') asSymbol.
- encoding add:value literalArrayEncoding
- ]
- ]
+ |value nm|
+
+ nm := names at:instSlot.
+ (skipped includes:nm) ifFalse:[
+ (value := self instVarAt:instSlot) notNil ifTrue:[
+ encoding add:(nm asMutator).
+ encoding add:value literalArrayEncoding
+ ]
+ ]
].
^ encoding asArray
"
- (1 -> 2) literalArrayEncoding
- DebugView menuSpec decodeAsLiteralArray literalArrayEncoding =
- DebugView menuSpec
+ (1 -> 2) literalArrayEncoding
+ DebugView menuSpec decodeAsLiteralArray literalArrayEncoding =
+ DebugView menuSpec
"
!
@@ -10052,15 +10046,14 @@
^ aVisitor visitObject:self with:aParameter
! !
-
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.757 2014-02-28 23:06:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.758 2014-03-05 22:17:45 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.757 2014-02-28 23:06:24 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.758 2014-03-05 22:17:45 cg Exp $'
!
version_SVN