--- a/Workspace.st	Sun Apr 02 13:43:38 1995 +0200
+++ b/Workspace.st	Tue Apr 11 18:24:40 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.17 1995-03-06 19:29:50 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.18 1995-04-11 16:24:40 claus Exp $
 '!
 
 !Workspace class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.17 1995-03-06 19:29:50 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.18 1995-04-11 16:24:40 claus Exp $
 "
 !
 
@@ -233,13 +233,13 @@
     ].
 !
 
-warning:aString position:relPos to:relEndPos
+warning:aString position:relPos to:relEndPos from:aCompiler 
     "compiler notifies us of a warning - same behavior as error"
 
     self error:aString position:relPos to:relEndPos asWarning:true 
 !
 
-error:aString position:relPos to:relEndPos
+error:aString position:relPos to:relEndPos from:aCompiler
     "compiler notifies us of an error; hilight the error (relPos to relEndPos) 
      and show a Box asking for continue/abort."
 
@@ -280,7 +280,7 @@
     ^ false
 !
 
-correctableError:aString position:relPos to:relEndPos
+correctableError:aString position:relPos to:relEndPos from:aCompiler
     "compiler notifies us of a correctable error;
      hilight the error (relPos to relEndPos) and show a Box asking for continue/correct/abort;
      this method should return true to the compiler if user wants the error