--- a/Warning.st	Tue Feb 04 21:09:59 2014 +0100
+++ b/Warning.st	Wed Apr 01 10:20:10 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 UserNotification subclass:#Warning
 	instanceVariableNames:''
 	classVariableNames:''
@@ -130,6 +132,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.
@@ -141,9 +156,8 @@
          on systems without GUI, simply show
          the message on the Transcript.
         "
-        Transcript show:'warning: '; showCR:text.
+        Transcript show:'Warning: '; showCR:text.
     ].
-    self proceed.
 
     "
       Warning raiseRequestErrorString:' abc'
@@ -155,11 +169,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.16 2015-01-20 14:39:05 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.16 2015-01-20 14:39:05 cg Exp $'
 ! !
 
+
 Warning initialize!