--- a/MemoryUsageView.st Fri Nov 15 12:24:35 2002 +0100
+++ b/MemoryUsageView.st Fri Nov 15 12:40:40 2002 +0100
@@ -61,9 +61,9 @@
|helpView headLine|
super initialize.
- self label:'Memory usage'.
+ self label:'Memory Usage'.
- headLine := ' class # of insts avg sz max sz bytes %mem %accum.'.
+ headLine := ' Class # of Insts Avg sz Max sz Bytes %Mem %Accum.'.
titleLabel := Label in:self.
titleLabel origin:(0.0 @ 0.0) corner:(1.0 @ titleLabel height).
@@ -425,21 +425,21 @@
m := PopUpMenu
itemList:#(
- ('sort by class name' sortByClass )
- ('sort by classes base name' sortByClassNameWithoutPrefix )
- ('sort by inst count' sortByInstCount )
- ('sort by memory usage' sortByMemoryUsage )
- ('sort by average size' sortByAverageSize )
- ('sort by maximum size' sortByMaxSize )
+ ('Sort by Class Name' sortByClass )
+ ('Sort by Classes Basename' sortByClassNameWithoutPrefix )
+ ('Sort by Inst Count' sortByInstCount )
+ ('Sort by Memory Usage' sortByMemoryUsage )
+ ('Sort by Average Size' sortByAverageSize )
+ ('Sort by Maximum Size' sortByMaxSize )
('-')
- ('inspect instances' inspectInstances )
- ('inspect with search' inspectInstancesWithSearch )
- ('inspect owners' inspectOwners )
- ('ref chains' displayGlobalRefChainsToInsts )
- ('nil instances' nilInstances )
+ ('Inspect Instances' inspectInstances )
+ ('Inspect with Search' inspectInstancesWithSearch )
+ ('Inspect Owners' inspectOwners )
+ ('Ref Chains' displayGlobalRefChainsToInsts )
+ ('Clear (nil) Instances' nilInstances )
('-')
- ('update' update )
- ('collect garbage & update' collectGarbageAndUpdate )
+ ('Update' update )
+ ('Collect Garbage & Update' collectGarbageAndUpdate )
)
resources:resources.
@@ -645,5 +645,5 @@
!MemoryUsageView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.43 2001-02-20 17:07:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.44 2002-11-15 11:40:33 cg Exp $'
! !
--- a/ProcessMonitor.st Fri Nov 15 12:24:35 2002 +0100
+++ b/ProcessMonitor.st Fri Nov 15 12:40:40 2002 +0100
@@ -104,13 +104,13 @@
showDetail ifTrue:[
Processor supportDynamicPriorities ifTrue:[
^
-'id group name state prio usedStack totalStack current-segment switch where'.
+'Id Group Name State Prio UsedStack TotalStack Current-Segment Switch Where'.
].
^
-'id group name state prio usedStack totalStack current-segment switch where'.
+'Id Group Name State Prio UsedStack TotalStack Current-Segment Switch Where'.
].
^
-'id group name state prio where '.
+'Id Group Name State Prio Where '.
"Modified: / 3.7.1996 / 13:57:38 / stefan"
"Modified: / 3.8.1998 / 23:20:24 / cg"
@@ -584,7 +584,7 @@
<resource: #programMenu>
- |items labels selectors m sel allRestartable|
+ |items m allRestartable|
device ctrlDown ifTrue:[
items := #(
@@ -604,11 +604,11 @@
('-')
('Abort' abortProcess)
('Terminate' terminateProcess)
- ('Terminate group' terminateProcessGroup)
+ ('Terminate Group' terminateProcessGroup)
('Restart' restartProcess)
('-')
- ('Raise prio' raisePrio)
- ('Lower prio' lowerPrio)
+ ('Raise Prio' raisePrio)
+ ('Lower Prio' lowerPrio)
).
updateProcess isNil ifTrue:[
@@ -776,5 +776,5 @@
!ProcessMonitor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.80 2002-05-13 23:19:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.81 2002-11-15 11:40:38 cg Exp $'
! !
--- 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 $'
! !