changed:
authorClaus Gittinger <cg@exept.de>
Wed, 11 May 2011 14:51:27 +0200
changeset 9931 fe535606118f
parent 9930 010aad7911a2
child 9932 f6d155d70650
changed: #updateDisplay #withInstancesOfSelectedClassDo:
MemoryUsageView.st
--- a/MemoryUsageView.st	Wed May 11 14:40:06 2011 +0200
+++ b/MemoryUsageView.st	Wed May 11 14:51:27 2011 +0200
@@ -515,12 +515,21 @@
      special kludge
     "
     class isSymbol ifTrue:[
-        class == #NameSpace ifFalse:[
-            ^ UserPreferences current systemBrowserClass open
+        class == #NameSpace ifTrue:[
+            class := (Smalltalk at:class) class.
+            insts := class allSubInstances.
+            insts remove:class soleInstance ifAbsent:nil
+        ] ifFalse:[
+            class == #Metaclass ifTrue:[
+                insts := Metaclass allSubInstances.
+            ] ifFalse:[
+                class == #Class ifTrue:[
+                    insts := Class allSubInstances.
+                ] ifFalse:[
+                    ^ self.
+                ].
+            ]
         ].
-        class := (Smalltalk at:class) class.
-        insts := class allSubInstances.
-        insts remove:class soleInstance ifAbsent:nil
     ] ifFalse:[
         insts := class allInstances.
     ].
@@ -703,7 +712,7 @@
             ].
         ].
         
-        info := rawInfo asSortedCollection:sortBlock.
+        info := (OrderedCollection withAll:rawInfo) sort:sortBlock.
 
         sumSizes := info collect:[:infoEntry | infoEntry overallByteSize ].
         allMemory := sumSizes sum.
@@ -759,11 +768,13 @@
         line := line , (100.0 printStringLeftPaddedTo:accumMemoryUseLen).
         l addFirst:line.
 
+        info addFirst:nil; addFirst:nil.
+
         list list:l.
     ]
 
     "Created: / 19-09-1995 / 15:30:47 / claus"
-    "Modified: / 05-05-2011 / 17:15:29 / cg"
+    "Modified: / 11-05-2011 / 14:47:52 / cg"
 !
 
 updateInfo
@@ -975,9 +986,9 @@
 !MemoryUsageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.58 2011-05-11 12:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.59 2011-05-11 12:51:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.58 2011-05-11 12:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.59 2011-05-11 12:51:27 cg Exp $'
 ! !