--- a/Object.st Fri Apr 11 19:38:06 2003 +0200
+++ b/Object.st Fri Apr 11 19:42:53 2003 +0200
@@ -691,6 +691,7 @@
^(self deepCopyUsing:(IdentityDictionary new)) postDeepCopyFrom:self
! !
+
!Object methodsFor:'accessing'!
at:index
@@ -4144,7 +4145,7 @@
|msgString debugger answer|
- msgString := ex errorString.
+ msgString := ex description.
"
if there is no debugger,
@@ -4156,25 +4157,25 @@
Smalltalk isStandAloneApp ifTrue:[
Dialog notNil ifTrue:[
- AbortSignal isHandled ifTrue:[
- answer := OptionBox
- request:msgString
- label:msgString
- buttonLabels:#('Ignore' 'Abort' 'Exit')
- values:#(#ignore #abort #exit)
- default:#exit.
- ] ifFalse:[
- answer := OptionBox
- request:msgString
- label:msgString
- buttonLabels:#('Ignore' 'Exit')
- values:#(#ignore #exit)
- default:#exit.
- ].
+ AbortSignal isHandled ifTrue:[
+ answer := OptionBox
+ request:msgString
+ label:msgString
+ buttonLabels:#('Ignore' 'Abort' 'Exit')
+ values:#(#ignore #abort #exit)
+ default:#exit.
+ ] ifFalse:[
+ answer := OptionBox
+ request:msgString
+ label:msgString
+ buttonLabels:#('Ignore' 'Exit')
+ values:#(#ignore #exit)
+ default:#exit.
+ ].
answer == #abort ifTrue:[
^ AbortSignal raise
].
- answer == #ignore ifTrue:[
+ answer == #ignore ifTrue:[
^ nil
].
].
@@ -7136,6 +7137,7 @@
^ self
! !
+
!Object methodsFor:'secure message sending'!
askFor:aSelector
@@ -8916,7 +8918,7 @@
Error handle:[:ex |
"/ a recursive error - quickly enter debugger
"/ this happened, when I corrupted the Dialog class ...
- ('Object [error]: ' , ex errorString , ' caught in errorNotification') errorPrintCR.
+ ('Object [error]: ' , ex description , ' caught in errorNotification') errorPrintCR.
action := #debug.
ex return.
] do:[ |s|
@@ -9066,10 +9068,11 @@
"Modified: 20.5.1996 / 10:28:53 / cg"
! !
+
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.459 2003-04-11 13:32:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.460 2003-04-11 17:42:53 stefan Exp $'
! !
Object initialize!