--- a/Object.st Wed Jan 24 17:12:21 1996 +0100
+++ b/Object.st Wed Jan 24 19:20:08 1996 +0100
@@ -1534,12 +1534,12 @@
|deps|
[
- deps := self dependents.
- deps isNil ifTrue:[
+ deps := self dependents.
+ deps isNil ifTrue:[
self dependents:(WeakIdentitySet with:anObject)
- ] ifFalse:[
+ ] ifFalse:[
deps add:anObject
- ]
+ ]
] valueUninterruptably
!
@@ -1559,11 +1559,11 @@
Therefore, some classes (Model) redefine this for better performance."
[
- (aCollection isNil or:[aCollection isEmpty]) ifTrue:[
+ (aCollection isNil or:[aCollection isEmpty]) ifTrue:[
Dependencies removeKey:self ifAbsent:[]
- ] ifFalse:[
+ ] ifFalse:[
Dependencies at:self put:aCollection
- ]
+ ]
] valueUninterruptably
!
@@ -1590,13 +1590,13 @@
|deps|
[
- deps := self dependents.
- deps notNil ifTrue:[
+ deps := self dependents.
+ deps notNil ifTrue:[
deps remove:anObject ifAbsent:[].
deps isEmpty ifTrue:[
- self dependents:nil
+ self dependents:nil
]
- ]
+ ]
] valueUninterruptably
! !
@@ -4097,6 +4097,11 @@
|info con sender|
+ Smalltalk isInitialized ifFalse:[
+ 'errorNotification: ' print. aString printNL.
+ ^ self
+ ].
+
Dialog isNil ifTrue:[
"
on systems without GUI, simply show
@@ -4163,6 +4168,11 @@
"launch a Notifier, telling user something.
Use #information: for ignorable messages."
+ Smalltalk isInitialized ifFalse:[
+ 'information: ' print. aString printNL.
+ ^ self
+ ].
+
Dialog isNil ifTrue:[
"
on systems without GUI, simply show
@@ -4189,6 +4199,11 @@
^ WarningSignal raiseRequestWith:self errorString:aString
].
+ Smalltalk isInitialized ifFalse:[
+ 'warning: ' print. aString printNL.
+ ^ self
+ ].
+
Dialog isNil ifTrue:[
"
on systems without GUI, simply show
@@ -4219,6 +4234,6 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.87 1996-01-23 17:47:09 ah Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.88 1996-01-24 18:20:08 ah Exp $'
! !
Object initialize!