--- a/Warning.st	Thu Feb 13 18:23:10 2003 +0100
+++ b/Warning.st	Mon Feb 17 20:09:07 2003 +0100
@@ -13,7 +13,7 @@
 
 "{ Package: 'stx:libbasic' }"
 
-Exception subclass:#Warning
+UserNotification subclass:#Warning
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -108,7 +108,7 @@
 
 initialize
 
-    NotifierString := 'Warning'.
+    NotifierString := 'Warning:'.
 
     "
      self initialize
@@ -126,19 +126,25 @@
 
     text := self description.
 
-    (Smalltalk isInitialized and:[Dialog notNil]) ifTrue:[
+    (Smalltalk isInitialized 
+     and:[Dialog notNil
+     and:[Screen notNil
+     and:[Screen current notNil
+     and:[Screen current isOpen
+    ]]]]) 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.
+        Transcript show:'warning: '; showCR:text.
     ].
     self proceed.
 
     "
-      Warning raiseRequestWith:self errorString:' abc'
+      Warning raiseRequestErrorString:' abc'
     "
 
     "Modified: / 3.8.1999 / 14:06:41 / stefan"
@@ -147,6 +153,7 @@
 !Warning class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.8 2002-03-01 11:23:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.9 2003-02-17 19:08:43 stefan Exp $'
 ! !
+
 Warning initialize!