--- a/Workspace.st	Fri Nov 24 20:59:28 1995 +0100
+++ b/Workspace.st	Fri Nov 24 23:16:53 1995 +0100
@@ -176,32 +176,39 @@
     |answer|
 
     self highlightingErrorPosition:relPos to:relEndPos do:[
-	|box lbl|
+        |box lbl|
 
-	"
-	 ask if we should abort or continue
-	"
-	box := YesNoBox title:aString
-		      yesText:(resources string:'continue')
-		       noText:(resources string:'abort').
+        WarningSignal isHandled ifTrue:[
+            WarningSignal raiseErrorString:aString.
+            ^ false
+        ].
 
-	asWarning ifTrue:[
-	    lbl := 'Compiler warning'
-	] ifFalse:[
-	    lbl := 'Compiler error'.
-	].
-	box label:lbl.
-	box form:(WarningBox iconBitmap).
-	answer := box confirm.
+        "
+         ask if we should abort or continue
+        "
+        box := YesNoBox title:aString
+                      yesText:(resources string:'continue')
+                       noText:(resources string:'abort').
+
+        asWarning ifTrue:[
+            lbl := 'Compiler warning'
+        ] ifFalse:[
+            lbl := 'Compiler error'.
+        ].
+        box label:lbl.
+        box form:(WarningBox iconBitmap).
+        answer := box confirm.
     ].
 
     "
      do the abort if we have to
     "
     answer ifFalse:[    
-	Object abortSignal raise.
+        Object abortSignal raise.
     ].
     ^ false
+
+    "Created: 24.11.1995 / 22:56:34 / cg"
 !
 
 error:aString position:relPos to:relEndPos from:aCompiler
@@ -513,5 +520,4 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.32 1995-11-24 10:55:30 cg Exp $'
-! !
+^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.33 1995-11-24 22:16:53 cg Exp $'! !