--- 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 $'
! !