--- a/SystemStatusMonitor.st Fri Dec 16 23:51:53 2016 +0000
+++ b/SystemStatusMonitor.st Sun Dec 18 11:24:54 2016 +0000
@@ -35,6 +35,16 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+!
+
+documentation
+"
+ Abstract class providing common code for list-based status monitors.
+
+ [disclaimer:]
+ these are some of the oldest tools in the system, written in the early 90's.
+ They do in no way reflect the way GUIs are designed/written these days.
+"
! !
!SystemStatusMonitor class methodsFor:'defaults'!
@@ -53,9 +63,15 @@
!SystemStatusMonitor class methodsFor:'startup'!
+isAbstract
+ "return true, if this is an abstract class."
+
+ ^ self == SystemStatusMonitor
+!
+
isVisualStartable
"return true, if this application can be started via #open.
- (to allow start of a change browser via double-click in the browser)"
+ (to allow start of a subclass instance via double-click in the browser)"
^ self ~~ SystemStatusMonitor
@@ -104,6 +120,10 @@
!SystemStatusMonitor methodsFor:'drawing'!
+titleLine
+ self subclassResponsibility
+!
+
updateList
self subclassResponsibility
!
@@ -249,16 +269,30 @@
preferredExtent
"return my preferred extent"
- ^ (font widthOf:self titleLine) + 40 @ 200
+ ^ ((self font widthOf:self titleLine) + 40) @ 250
"Modified: 23.1.1997 / 02:35:01 / cg"
"Created: 23.1.1997 / 02:51:24 / cg"
! !
+!SystemStatusMonitor methodsFor:'user actions'!
+
+doubleClicked
+ "intentionally blank here - to be redefined in subclasses"
+
+ ^ self
+!
+
+inspectSelection
+ "intentionally blank here - to be redefined in subclasses"
+
+ ^ self
+! !
+
!SystemStatusMonitor class methodsFor:'documentation'!
version
- ^ '$Id: SystemStatusMonitor.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Header$'
!
version_HG