--- a/MemoryUsageView.st Mon Nov 20 11:35:42 2000 +0100
+++ b/MemoryUsageView.st Mon Nov 20 18:59:27 2000 +0100
@@ -301,6 +301,29 @@
"Modified: 15.10.1996 / 22:09:38 / cg"
!
+nilInstances
+ |class|
+
+ list selection notNil ifTrue:[
+ class := (info at:(list selection)) at:1.
+ self withCursor:(Cursor questionMark) do:[
+ |insts|
+
+ insts := class allInstances.
+ insts notEmpty ifTrue:[
+ (self confirm:'there are ' , insts size printString , ' instances.\\Do you really want to nil them all ?' withCRs)
+ ifTrue:[
+ insts do:[:each |
+ each becomeNil
+ ]
+ ]
+ ].
+ ]
+ ]
+
+ "Modified: 15.10.1996 / 22:09:29 / cg"
+!
+
sortByAverageSize
self label:'Memory usage; by average size'.
"/ sortBlock := [:a :b | ((a at:3)/(a at:2)) > ((b at:3)/(b at:2))].
@@ -413,6 +436,7 @@
('inspect with search' inspectInstancesWithSearch )
('inspect owners' inspectOwners )
('ref chains' displayGlobalRefChainsToInsts )
+ ('nil instances' nilInstances )
('-')
('update' update )
('collect garbage & update' collectGarbageAndUpdate )
@@ -621,5 +645,5 @@
!MemoryUsageView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.41 2000-11-16 20:49:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.42 2000-11-20 17:59:27 cg Exp $'
! !