diff -r 08bf52d8a022 -r 1828c8969866 ActivityNotification.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ActivityNotification.st	Fri Apr 23 13:41:49 2004 +0200
@@ -0,0 +1,77 @@
+"
+ COPYRIGHT (c) 2003 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.
+"
+
+"{ Package: 'stx:libbasic' }"
+
+UserNotification subclass:#ActivityNotification
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Exceptions'
+!
+
+!ActivityNotification class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2003 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
+"    
+    ActivityNotification can be raised from deeply nested methods, which are going to perform
+    some long-time activity.
+
+    If there is a handler for the ActivityNotification, that one is callesd,
+    passing the argument. The handler should show this message whereever it likes,
+    and proceed. If there is no handler, ActivityNotification is simply ignored.
+
+    This is very useful to pass busy messages up to some higher level (typically a view)
+    which likes to display that message in its label or a busy-box.
+    It could also be put into some logfile or printed on the standard output/error.
+
+    It produces an info box with the message on the screen. 
+    If no display is available, the message is written 
+    to the Transcript.
+
+    [see also:]
+        Signal
+"
+! !
+
+!ActivityNotification class methodsFor:'initialization'!
+
+initialize
+
+    NotifierString := 'activity'.
+
+    "
+     self initialize
+    "
+! !
+
+!ActivityNotification class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/ActivityNotification.st,v 1.1 2004-04-23 11:41:49 stefan Exp $'
+! !
+
+ActivityNotification initialize!