BrowserView.st
changeset 4817 ecd186733754
parent 4808 8ba6ed945335
child 4822 fd612daac229
--- 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!