--- a/Warning.st	Tue Aug 03 09:22:32 1999 +0200
+++ b/Warning.st	Tue Aug 03 09:23:21 1999 +0200
@@ -75,19 +75,32 @@
 action
     "Default action for warnings: open a warn box with errorString"
 
-    self proceedWith:(Dialog warn:self errorString)
+    |text|
+
+    text := self errorString.
 
+    (Smalltalk isInitialized and:[Dialog notNil]) ifTrue:[
+        Dialog autoload.        "in case its autoloaded"
+        Dialog warn:text.
+    ] ifFalse:[
+        "
+         on systems without GUI, simply show
+         the message on the Transcript.
+        "
+        Transcript showCR:text.
+    ].
+    self proceed.
 
     "
-      Warning raiseRequest
+      Warning raiseRequestWith:self errorString:' abc'
     "
 
-    "Modified: / 23.7.1999 / 15:35:27 / stefan"
+    "Modified: / 2.8.1999 / 16:41:53 / stefan"
 ! !
 
 !Warning class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.2 1999-07-28 21:00:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.3 1999-08-03 07:23:21 stefan Exp $'
 ! !
 Warning initialize!