--- a/Workspace.st	Thu Jul 01 16:15:38 2010 +0200
+++ b/Workspace.st	Wed Jul 07 15:54:01 2010 +0200
@@ -852,16 +852,27 @@
      this method should return true to the compiler if user wants the error
      to be corrected; false otherwise"
 
-    |action|
+    |action doNotShowAgainHolder|
 
     self highlightingWarningPosition:relPos to:relEndPos do:[
-        action := OptionBox 
+        doNotShowAgainHolder := false asValue.
+        Dialog aboutToOpenBoxNotificationSignal handle:[:ex |
+            (aCompiler notNil and:[aCompiler class doNotShowCompilerWarningAgainActionQuery isHandled]) ifTrue:[
+                ex parameter addCheckBox:'Do not show this dialog again (reenable via Launchers Settings Dialog)' on:doNotShowAgainHolder.
+            ].
+            ex proceed.
+        ] do:[
+            action := OptionBox 
                       request:aString
                       label:(resources string:'Warning')
                       image:(WarningBox iconBitmap)
                       buttonLabels:(resources array:#('Cancel' 'Remove Variable(s)' 'Continue'))
                       values:#(#abort #correct #continue)
                       default:#continue.
+        ].
+        doNotShowAgainHolder value == true ifTrue:[
+            aCompiler class doNotShowCompilerWarningAgainActionQuery actionQuery value
+        ].
     ].
 
     action == #abort ifTrue:[
@@ -870,7 +881,7 @@
     ].
     ^ action == #correct
 
-    "Modified: / 16.11.2001 / 17:39:34 / cg"
+    "Modified: / 07-07-2010 / 15:51:21 / cg"
 !
 
 warning:aString position:relPos to:relEndPos from:aCompiler 
@@ -1792,9 +1803,9 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.217 2010-05-17 10:53:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.218 2010-07-07 13:54:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.217 2010-05-17 10:53:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.218 2010-07-07 13:54:01 cg Exp $'
 ! !