--- a/BrowserView.st Fri Apr 11 19:13:57 2003 +0200
+++ b/BrowserView.st Fri Apr 11 19:24:38 2003 +0200
@@ -2409,7 +2409,7 @@
ifTrue:[
self busyLabel:'saving: %1' with:aClass name.
Class fileOutErrorSignal handle:[:ex |
- self warn:'cannot fileOut: %1\(%2)\\skipped.' with:(aClass name allBold) with:ex errorString.
+ self warn:'cannot fileOut: %1\(%2)\\skipped.' with:(aClass name allBold) with:ex description.
self normalLabel.
ex return.
] do:[
@@ -3186,8 +3186,8 @@
|msg|
msg := 'Load from repository'.
- ex errorString size > 0 ifTrue:[
- msg := msg , ' - ' , ex errorString
+ ex description size > 0 ifTrue:[
+ msg := msg , ' - ' , ex description
].
dialog window topView label:msg.
ex proceed.
@@ -4248,7 +4248,7 @@
self busyLabel:'saving %1' with:currentClass name.
Class fileOutErrorSignal handle:[:ex |
- self warn:'cannot fileOut: %1\(%2)' with:currentClass name with:ex errorString.
+ self warn:'cannot fileOut: %1\(%2)' with:currentClass name with:ex description.
self normalLabel.
ex return.
] do:[
@@ -4325,7 +4325,7 @@
self busyLabel:'saving binary of %1' with:currentClass name.
Class fileOutErrorSignal handle:[:ex |
- self warn:'cannot create: %1\(%2)' with:ex parameter with:ex errorString.
+ self warn:'cannot create: %1\(%2)' with:ex parameter with:ex description.
self normalLabel.
ex return.
] do:[
@@ -5336,7 +5336,7 @@
^ self
].
aStream class readErrorSignal handle:[:ex |
- self warn:('Read error while reading extracted source\\' , ex errorString) withCRs.
+ self warn:('Read error while reading extracted source\\' , ex description) withCRs.
aStream close.
^ self
] do:[
@@ -7007,7 +7007,7 @@
|box answer|
box := YesNoBox
title:('fileOut error: '
- , ex errorString
+ , ex description
, '\\continue anyway ?') withCRs
yesText:'continue'
noText:'abort'.
@@ -11486,7 +11486,7 @@
self busyLabel:'checking in %1' with:aClass name.
"/ ca does not want boxes to pop up all over ...
InformationSignal handle:[:ex |
- Transcript showCR:ex errorString
+ Transcript showCR:ex description
] do:[
self classCheckin:aClass withLog:logMessage
].
@@ -13063,7 +13063,7 @@
|cls|
Error handle:[:ex |
- codeView error:ex errorString
+ codeView error:ex description
position:1 to:nil from:nil.
] do:[
Class nameSpaceQuerySignal answer:(environment ? Smalltalk)
@@ -13099,7 +13099,7 @@
ex signal == HaltInterrupt ifTrue:[
ex reject
].
- codeView error:ex errorString position:1 to:nil from:nil.
+ codeView error:ex description position:1 to:nil from:nil.
] do:[
cls := JavaCompiler
evaluateClassDefinition:theCode asString
@@ -14654,7 +14654,7 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.753 2003-04-09 12:05:39 james Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.754 2003-04-11 17:24:38 stefan Exp $'
! !
BrowserView initialize!