--- a/Object.st Mon Jul 04 19:35:39 2011 +0200
+++ b/Object.st Tue Jul 05 22:50:52 2011 +0200
@@ -525,6 +525,7 @@
"Modified: 23.4.1996 / 16:00:07 / cg"
! !
+
!Object methodsFor:'Compatibility-Dolphin'!
stbFixup: anSTBInFiler at: newObjectIndex
@@ -1695,6 +1696,7 @@
"Modified: / 18.2.2000 / 11:32:19 / cg"
! !
+
!Object methodsFor:'change & update'!
broadcast:aSelectorSymbol
@@ -3295,46 +3297,46 @@
wasBlocked := OperatingSystem blockInterrupts.
[
- |deps n d|
-
- deps := self dependents.
- deps size ~~ 0 ifTrue:[
-
- "/ to save a fair amount of memory in case of
- "/ many dependencies, we store a single dependent in
- "/ a WeakArray, and switch to a WeakSet if more dependents are
- "/ added. Here we have to do the inverse ...
-
- ((deps class == WeakArray) or:[deps class == Array]) ifTrue:[
- ((d := deps at:1) == anObject
- or:[d isNil
- or:[d == 0]]) ifTrue:[
- self dependents:nil
- ]
- ] ifFalse:[
- deps remove:anObject ifAbsent:[].
- (n := deps size) == 0 ifTrue:[
- self dependents:nil
- ] ifFalse:[
- n == 1 ifTrue:[
- d := deps firstIfEmpty:nil.
- d notNil ifTrue:[
- deps := (deps isWeakCollection ifTrue:WeakArray ifFalse:Array) with:d
- ] ifFalse:[
- deps := nil
- ].
- self dependents:deps.
- ]
- ]
- ]
- ]
+ |deps n d|
+
+ deps := self dependents.
+ deps size ~~ 0 ifTrue:[
+
+ "/ to save a fair amount of memory in case of
+ "/ many dependencies, we store a single dependent in
+ "/ a WeakArray, and switch to a WeakSet if more dependents are
+ "/ added. Here we have to do the inverse ...
+
+ ((deps class == WeakArray) or:[deps class == Array]) ifTrue:[
+ ((d := deps at:1) == anObject
+ or:[d isNil
+ or:[d == 0]]) ifTrue:[
+ self dependents:nil
+ ]
+ ] ifFalse:[
+ deps remove:anObject ifAbsent:[].
+ (n := deps size) == 0 ifTrue:[
+ self dependents:nil
+ ] ifFalse:[
+ n == 1 ifTrue:[
+ d := deps firstIfEmpty:nil.
+ d notNil ifTrue:[
+ deps := (deps isWeakCollection ifTrue:[WeakArray] ifFalse:[Array]) with:d
+ ] ifFalse:[
+ deps := nil
+ ].
+ self dependents:deps.
+ ]
+ ]
+ ]
+ ]
] ensure:[
- wasBlocked ifFalse:[
- OperatingSystem unblockInterrupts
- ]
+ wasBlocked ifFalse:[
+ OperatingSystem unblockInterrupts
+ ]
]
- "Modified: / 26.1.1998 / 19:51:50 / cg"
+ "Modified: / 05-07-2011 / 22:49:31 / cg"
! !
!Object methodsFor:'dependents access (non weak)'!
@@ -7034,8 +7036,8 @@
|s|
s := Processor activeProcess isSystemProcess
- ifTrue:Stderr
- ifFalse:Transcript.
+ ifTrue:[Stderr]
+ ifFalse:[Transcript].
StreamError catch:[
aBlock value:s.
].
@@ -9404,7 +9406,7 @@
!Object class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.668 2011-07-04 09:19:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.669 2011-07-05 20:50:52 cg Exp $'
!
version_SVN