--- 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 $'
! !