--- a/CompilationErrorHandler.st	Fri Oct 09 15:10:15 2009 +0200
+++ b/CompilationErrorHandler.st	Mon Oct 12 09:48:13 2009 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -11,11 +9,10 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#CompilationErrorHandler
-	instanceVariableNames:'myStream currentSource'
+	instanceVariableNames:'myStream currentSource failBlock'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler'
@@ -54,6 +51,10 @@
 
 !CompilationErrorHandler methodsFor:'accessing'!
 
+failBlock:something
+    failBlock := something.
+!
+
 source:aString
     currentSource := aString
 ! !
@@ -86,6 +87,7 @@
 "/    position printOn:Transcript.
 "/    Transcript show:' '.
     Transcript showCR:aMessage.
+    failBlock notNil ifTrue:[ failBlock value ].
     ^ false
 
     "Created: / 30.7.1999 / 18:10:30 / cg"
@@ -116,5 +118,9 @@
 !CompilationErrorHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.7 2004-03-12 10:11:37 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.8 2009-10-12 07:48:13 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.8 2009-10-12 07:48:13 cg Exp $'
 ! !