--- a/Object.st	Sat Dec 16 18:03:48 1995 +0100
+++ b/Object.st	Sat Dec 16 18:17:20 1995 +0100
@@ -43,7 +43,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.78 1995-12-16 17:03:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.79 1995-12-16 17:17:20 cg Exp $'
 !
 
 documentation
@@ -160,6 +160,10 @@
 	WarningSignal nameClass:self message:#warnungSignal.
 	WarningSignal notifierString:'warning'.
 
+	ActivityNotificationSignal := UserNotificationSignal newSignalMayProceed:true.
+	ActivityNotificationSignal nameClass:self message:#activityNotificationSignal.
+	ActivityNotificationSignal notifierString:'activity'.
+
 	DeepCopyErrorSignal := ErrorSignal newSignalMayProceed:true.
 	DeepCopyErrorSignal nameClass:self message:#deepCopyErrorSignal.
 	DeepCopyErrorSignal notifierString:'object cannot be deepCopy-ed'.
@@ -286,6 +290,13 @@
     ^ WarningSignal
 !
 
+activityNotificationSignal
+    "return the signal used for activity notifications.
+     A handler for this signal gets all #activityNotification: sends"
+
+    ^ ActivityNotificationSignal
+!
+
 deepCopyErrorSignal 
     "return the signal raised when a deepcopy is asked for
      an object which cannot do this (for example, BlockClosures