EvalScriptingErrorHandler.st
changeset 3613 cf01a916c775
parent 3394 cbca0be4dd32
child 3633 1486488d996c
--- a/EvalScriptingErrorHandler.st	Thu Mar 05 15:48:05 2015 +0100
+++ b/EvalScriptingErrorHandler.st	Sat Mar 21 00:34:30 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2014 by eXept Software AG
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 CompilationErrorHandler subclass:#EvalScriptingErrorHandler
 	instanceVariableNames:''
 	classVariableNames:''
@@ -58,11 +62,12 @@
 
     lineNr := myStream isNil ifTrue:[1] ifFalse:[myStream lineNumber ? '?'].
     pos := position ? '?'.
-    Stderr nextPutAll:('[',errorOrWarning,' %1/%2] %3' bindWith:lineNr with:pos with:aMessage).
+    Stderr nextPutLine:('[%1 %2/%3] %4' bindWith:errorOrWarning with:lineNr with:pos with:aMessage).
     currentSource notNil ifTrue:[
-	Stderr nextPutLine:currentSource.
-	Stderr spaces:position?0.
-	Stderr nextPutLine:'^'.
+        Stderr 
+            nextPutLine:currentSource;
+            spaces:position?0;
+            nextPutLine:'^'.
     ].
     ^ #Error
 !
@@ -86,9 +91,10 @@
 !EvalScriptingErrorHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.5 2014-02-28 20:00:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.6 2015-03-20 23:34:30 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.5 2014-02-28 20:00:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.6 2015-03-20 23:34:30 stefan Exp $'
 ! !
+