--- a/PopUpBanner.st	Mon Feb 07 14:46:19 2000 +0100
+++ b/PopUpBanner.st	Mon Feb 07 17:07:31 2000 +0100
@@ -37,7 +37,7 @@
 
 documentation
 "
-    Shows a banner popUp;
+    Shows a banner popUp (splash window);
     can be used at startup to make wait-time a bit more interesting.
     See use in smalltalk.rc / showBanner.rc / hideBanner.rc.
 
@@ -45,6 +45,22 @@
         Claus Gittinger
 "
 
+!
+
+examples
+"
+                                                [exBegin]
+    |img bannerView|
+
+    img := Image fromFile:'banner1.xpm'.
+    bannerView := PopUpBanner forImage:img.
+    bannerView showCentered.
+
+    Delay waitForSeconds:2.
+    bannerView destroy
+                                                [exEnd]
+"
+
 ! !
 
 !PopUpBanner class methodsFor:'instance creation'!
@@ -54,6 +70,7 @@
 
     v := self new.
     v viewBackground:anImage.
+    v cursor:Cursor wait.
     ^ v
 ! !
 
@@ -82,5 +99,5 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.3 2000-01-26 14:50:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.4 2000-02-07 16:07:31 cg Exp $'
 ! !