--- a/ProcessMonitor.st	Thu Aug 03 03:38:05 1995 +0200
+++ b/ProcessMonitor.st	Thu Aug 10 15:14:54 1995 +0200
@@ -39,7 +39,8 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.18 1995-08-03 01:38:05 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.19 1995-08-10 13:14:46 claus Exp $
+$Revision: 1.19 $
 "
 !
 
@@ -107,7 +108,7 @@
 
 titleLine
     showDetail ifTrue:[
-    ^ 'id   name                           state    prio   usedStack  totalStack    current segment     switches'.
+    ^ 'id   name                           state    prio   usedStack  totalStack    current segment     switches   list'.
     ].
     ^ 'id   name                           state    prio   usedStack  totalStack'.
 !
@@ -150,7 +151,7 @@
 updateStatus
     "update status display of processes"
 
-    |oldList list line dIndex con interrupted|
+    |oldList list line dIndex con interrupted plist|
 
     shown ifTrue:[
 	oldList := listView list.
@@ -213,10 +214,11 @@
 				    con := con sender
 				].
 				line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
-				line := line , ' ('.
-				line := line , (aProcess numberOfStackBoundaryHits printString).
-				line := line , ')'.
-			    ]
+			    ] ifFalse:[
+				line := line , (String new:19)
+			    ].
+			    line := line , ' '.
+			    line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
 			].
 			list add:line.
 			processes at:dIndex put:aProcess.
@@ -263,7 +265,7 @@
     hideDead := true.
     showDetail := Smalltalk at:#SystemDebugging ifAbsent:false.
 
-    v := ScrollableView for:SelectionInListView in:self.
+    v := HVScrollableView for:SelectionInListView miniScrollerH:true in:self.
     v origin:0.0@0.0 corner:1.0@1.0.
 
 "/    self extent:(font widthOf:self titleLine) + v scrollBar width @ 100.
@@ -440,7 +442,7 @@
     |labels selectors m|
 
     device ctrlDown ifTrue:[
-	labels :=    #(
+	labels := resources array:#(
 			'\c detail'
 		      ).
 	selectors := #(