SystemStatusMonitor.st
branchjv
changeset 17215 4a42de8e888a
parent 15950 23be8cf85415
parent 17168 26ea2eb499bf
child 17277 11e4a5ca80a5
--- 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