diff -r 4913efd64d60 -r 7bbe05da5769 StandardSystemView.st
--- a/StandardSystemView.st	Sat Dec 16 02:27:44 1995 +0100
+++ b/StandardSystemView.st	Sat Dec 16 18:44:01 1995 +0100
@@ -11,11 +11,11 @@
 "
 
 TopView subclass:#StandardSystemView
-	 instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
-                application windowEventsForApplication'
-	 classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel'
-	 poolDictionaries:''
-	 category:'Views-Basic'
+	instanceVariableNames:'label icon iconView iconLabel minExtent maxExtent sizeFixed
+		application windowEventsForApplication'
+	classVariableNames:'DefaultIcon TakeFocusWhenMapped IncludeHostNameInLabel'
+	poolDictionaries:''
+	category:'Views-Basic'
 !
 
 !StandardSystemView class methodsFor:'documentation'!
@@ -573,6 +573,14 @@
      This is being implemented ..."
 
     windowEventsForApplication := collectionOfEventSymbols
+!
+
+showActivity:someMessage
+    application notNil ifTrue:[
+        application showActivity:someMessage
+    ]
+
+    "Created: 16.12.1995 / 18:40:44 / cg"
 ! !
 
 !StandardSystemView methodsFor:'initialization'!
@@ -928,5 +936,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.38 1995-12-10 12:40:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.39 1995-12-16 17:43:19 cg Exp $'
 ! !