--- a/UserNotification.st	Thu Feb 13 18:23:10 2003 +0100
+++ b/UserNotification.st	Mon Feb 17 20:09:07 2003 +0100
@@ -90,20 +90,26 @@
 
     text := self description.
 
-    (Smalltalk isInitialized and:[Dialog notNil]) ifTrue:[
-        Dialog notify:text.
+    (Smalltalk isInitialized 
+     and:[Dialog notNil
+     and:[Screen notNil
+     and:[Screen current notNil
+     and:[Screen current isOpen
+    ]]]]) ifTrue:[
+        Dialog autoload.        "in case its autoloaded"
+        Dialog information:text.
     ] ifFalse:[
         "
          on systems without GUI, simply show
          the message on the Transcript.
         "
-        Transcript showCR:text.
+        Transcript show:'notification: '; showCR:text.
     ].
     self proceed.
 
 
     "
-      UserNotification raiseRequestWith:self errorString:' abc'
+      UserNotification raiseRequestErrorString:' abc'
     "
 
     "Modified: / 3.8.1999 / 14:06:55 / stefan"
@@ -112,6 +118,7 @@
 !UserNotification class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.4 2001-11-17 10:00:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.5 2003-02-17 19:09:07 stefan Exp $'
 ! !
+
 UserNotification initialize!