--- 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 $'
! !
+