--- a/SemaphoreMonitor.st	Fri Nov 15 12:24:35 2002 +0100
+++ b/SemaphoreMonitor.st	Fri Nov 15 12:40:40 2002 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool' }"
+
 SystemStatusMonitor subclass:#SemaphoreMonitor
 	instanceVariableNames:'semaphores'
 	classVariableNames:''
@@ -67,7 +69,7 @@
 !SemaphoreMonitor methodsFor:'drawing'!
 
 titleLine
-    ^ ' id     name                   count owner   waiting process(es)                   '.
+    ^ ' Id     Name                   Count Owner   Waiting Process(es)                   '.
 
     "
      SemaphoreMonitor open
@@ -293,14 +295,14 @@
 
     <resource: #programMenu>
 
-    |labels selectors m sel|
+    |labels selectors m|
 
     labels := resources array:#(
-                         'inspect' 
-                         'inspect waiters' 
-                         'debug waiters' 
+                         'Inspect' 
+                         'Inspect Waiters' 
+                         'Debug Waiters' 
                          '-'  
-                         'signal'  
+                         'Signal'  
                         ).
     selectors := #(
                          inspectSemaphore  
@@ -311,7 +313,7 @@
                         ).
 
     updateProcess isNil ifTrue:[
-        labels := (resources array:#('update' '-')) , labels.
+        labels := (resources array:#('Update' '-')) , labels.
         selectors := #(updateView nil) , selectors
     ].
 
@@ -355,5 +357,5 @@
 !SemaphoreMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.15 1999-12-14 20:15:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SemaphoreMonitor.st,v 1.16 2002-11-15 11:40:40 cg Exp $'
 ! !