--- a/MemoryUsageView.st	Sun Jan 12 23:30:25 2014 +0000
+++ b/MemoryUsageView.st	Wed Apr 01 10:38:01 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 StandardSystemView subclass:#MemoryUsageView
 	instanceVariableNames:'rawInfo info list sortBlock titleLabel prevRawInfo
 		autoUpdateProcess autoUpdateInterval filter infoLabel'
@@ -167,13 +169,14 @@
     titleLabel font:(EditTextView defaultFont).
     list menuHolder:self; menuPerformer:self; menuMessage:#usageMenu.
 
-    self extent:((list font widthOf:headLine) + (device horizontalPixelPerMillimeter * 15) rounded) @ self height.
+    self extent:((list font widthOf:headLine) + (self device horizontalPixelPerMillimeter * 15) rounded) @ self height.
 
     "
      MemoryUsageView open
     "
 
     "Modified: / 08-05-2011 / 12:45:06 / cg"
+    "Modified: / 26-11-2014 / 16:00:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 release
@@ -229,6 +232,7 @@
                 insts := class allSubInstances.
                 insts remove:class soleInstance ifAbsent:nil
             ] ifFalse:[
+                tooMany := false.
                 Error handle:[:ex |
                     tooMany := true.
                 ] do:[
@@ -277,8 +281,8 @@
             insts size > 500 ifTrue:[
                 answer := OptionBox
                             request:('there are ' , insts size printString , ' instances.\\Do you really want to see them all ?' withCRs)
-                            buttonLabels:#('Yes' 'Show me any 500' 'No' )
-                            values:#(true #some false)
+                            buttonLabels:#('No' 'Show me any 500' 'Yes' )
+                            values:#( false #some true )
                             default:true.
             ].
             answer ~~ false ifTrue:[
@@ -876,7 +880,10 @@
         ].
 "/ (((lastP asFixedPoint:1) printStringLeftPaddedTo:7) startsWith:'99.') ifTrue:[self halt].
         "add summary line"
-        overAllAvgSize := ((allMemory / overAllCount) * 10) rounded / 10.0.
+        overAllAvgSize := 0.
+        overAllCount == 0 ifFalse:[
+            overAllAvgSize := ((allMemory / overAllCount) * 10) rounded / 10.0.
+        ].
 
         l addFirst:''.
         line := 'all objects' printStringPaddedTo:nameLen.
@@ -984,12 +991,6 @@
 
 !MemoryUsageView methodsFor:'realization'!
 
-pixelOrigin:a extent:b
-    super pixelOrigin:a extent:b
-
-    "Created: / 05-05-2011 / 17:01:06 / cg"
-!
-
 realize
     super realize.
     titleLabel origin:(list originRelativeTo:self) x @ 0.0.
@@ -1109,15 +1110,10 @@
 !MemoryUsageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.65 2013-08-22 15:36:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.70 2015-02-23 17:04:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.65 2013-08-22 15:36:19 cg Exp $'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryUsageView.st,v 1.70 2015-02-23 17:04:48 cg Exp $'
 ! !