--- a/Warning.st	Tue May 13 19:54:13 2014 +0200
+++ b/Warning.st	Wed May 14 00:09:49 2014 +0200
@@ -130,6 +130,19 @@
 defaultAction
     "Default action for warnings: open a warn box with description"
 
+    self showWarnDialog.
+    self proceed.
+
+    "
+      Warning raiseRequestErrorString:' abc'
+    "
+
+    "Modified: / 3.8.1999 / 14:06:41 / stefan"
+!
+
+showWarnDialog
+    "open a warn box with description"
+
     |text|
 
     text := self description.
@@ -143,7 +156,6 @@
         "
         Transcript show:'warning: '; showCR:text.
     ].
-    self proceed.
 
     "
       Warning raiseRequestErrorString:' abc'
@@ -155,11 +167,12 @@
 !Warning class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009-10-14 17:34:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.15 2014-05-13 22:09:49 cg Exp $'
 ! !
 
+
 Warning initialize!