--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/WarningCompilationErrorHandler.st	Fri Jul 30 20:01:16 1999 +0200
@@ -0,0 +1,32 @@
+CompilationErrorHandler subclass:#WarningCompilationErrorHandler
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Compiler'
+!
+
+
+!WarningCompilationErrorHandler methodsFor:'error handling'!
+
+error:aMessage position:position to:endPos from:aCompiler
+    "error notification.
+     This is sent by the compiler/evaluator if it detects errors."
+
+    |box|
+
+    box := TextBox new.
+    box initialText:currentSource.
+    box label:aMessage.
+    box textView selectFromCharacterPosition:position to:endPos.
+    box open.
+    ^ false
+
+    "Created: / 30.7.1999 / 18:10:22 / cg"
+    "Modified: / 30.7.1999 / 18:19:02 / cg"
+! !
+
+!WarningCompilationErrorHandler class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/WarningCompilationErrorHandler.st,v 1.1 1999-07-30 18:01:16 cg Exp $'
+! !