--- a/SystemStatusMonitor.st	Thu Dec 15 18:17:00 2016 +0100
+++ b/SystemStatusMonitor.st	Fri Dec 16 13:00:25 2016 +0100
@@ -9,8 +9,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libtool' }"
 
-"{ Package: 'stx:libtool' }"
+"{ NameSpace: Smalltalk }"
 
 SimpleView subclass:#SystemStatusMonitor
 	instanceVariableNames:'listView listUpdateDelay updateDelay updateBlock listUpdateBlock
@@ -34,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'!
@@ -52,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
 
@@ -103,6 +120,10 @@
 
 !SystemStatusMonitor methodsFor:'drawing'!
 
+titleLine
+    self subclassResponsibility
+!
+
 updateList
     self subclassResponsibility
 !
@@ -248,14 +269,29 @@
 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
-    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.17 2004-12-14 15:01:54 cg Exp $'
+    ^ '$Header$'
 ! !
+