checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 26 Jan 2000 15:15:12 +0100
changeset 1319 f6a32ecf2b0c
parent 1318 39e9b3f4202b
child 1320 69348f686417
checkin from browser
PopUpBanner.st
--- a/PopUpBanner.st	Wed Jan 26 15:14:02 2000 +0100
+++ b/PopUpBanner.st	Wed Jan 26 15:15:12 2000 +0100
@@ -1,3 +1,16 @@
+"
+ COPYRIGHT (c) 2000 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
 PopUpView subclass:#PopUpBanner
 	instanceVariableNames:''
 	classVariableNames:''
@@ -5,6 +18,34 @@
 	category:'Views-Basic'
 !
 
+!PopUpBanner class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2000 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
+documentation
+"
+    Shows a banner popUp;
+    can be used at startup to make wait-time a bit more interesting.
+    See use in smalltalk.rc / showBanner.rc / hideBanner.rc.
+
+    [author:]
+        Claus Gittinger
+"
+
+! !
 
 !PopUpBanner class methodsFor:'instance creation'!
 
@@ -41,5 +82,5 @@
 !PopUpBanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.1 2000-01-26 14:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PopUpBanner.st,v 1.2 2000-01-26 14:15:12 cg Exp $'
 ! !