diff -r 0c467f6b1741 -r f73dd00b5da4 MemoryUsageView.st
--- 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 $'
 ! !