class: EvalScriptingErrorHandler
authorClaus Gittinger <cg@exept.de>
Fri, 22 May 2015 20:33:21 +0200
changeset 3633 1486488d996c
parent 3631 88659350da26
child 3634 92c392ec8d31
class: EvalScriptingErrorHandler changed: #showErrorOrWarning:as:position:to:from:
EvalScriptingErrorHandler.st
--- a/EvalScriptingErrorHandler.st	Mon May 18 16:48:37 2015 +0200
+++ b/EvalScriptingErrorHandler.st	Fri May 22 20:33:21 2015 +0200
@@ -62,6 +62,12 @@
 
     lineNr := myStream isNil ifTrue:[1] ifFalse:[myStream lineNumber ? '?'].
     pos := position ? '?'.
+errorOrWarning printCR.
+errorOrWarning lineNr.
+errorOrWarning pos.
+errorOrWarning aMessage.
+('[%1 %2/%3] %4' bindWith:errorOrWarning with:lineNr with:pos with:aMessage) printCR.
+
     Stderr nextPutLine:('[%1 %2/%3] %4' bindWith:errorOrWarning with:lineNr with:pos with:aMessage).
     currentSource notNil ifTrue:[
         Stderr 
@@ -91,10 +97,10 @@
 !EvalScriptingErrorHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.6 2015-03-20 23:34:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.7 2015-05-22 18:33:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.6 2015-03-20 23:34:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.7 2015-05-22 18:33:21 cg Exp $'
 ! !