--- a/MemoryMonitor.st	Sat Aug 28 14:19:32 1999 +0200
+++ b/MemoryMonitor.st	Sat Aug 28 14:53:20 1999 +0200
@@ -37,6 +37,8 @@
 
 documentation
 "
+    MemoryMonitor application.
+
     Shows memory usage (oldspace + newspace). Simple, but useful.
 
     The numbers shown are:
@@ -97,6 +99,18 @@
 
 ! !
 
+!MemoryMonitor class methodsFor:'defaults'!
+
+defaultIcon
+    |i|
+
+    i := Image fromFile:'MemMonitor.xbm'.
+    i notNil ifTrue:[^ i].
+    ^ StandardSystemView defaultIcon
+
+
+! !
+
 !MemoryMonitor class methodsFor:'interface specs'!
 
 windowSpec
@@ -107,9 +121,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:NewMemoryMonitor andSelector:#windowSpec
-     NewMemoryMonitor new openInterface:#windowSpec
-     NewMemoryMonitor open
+     UIPainter new openOnClass:MemoryMonitor andSelector:#windowSpec
+     MemoryMonitor new openInterface:#windowSpec
+     MemoryMonitor open
     "
 
     <resource: #canvas>
@@ -123,8 +137,9 @@
           #name: 'MemoryMonitor'
           #min: #(#Point 175 326)
           #max: #(#Point 1024 768)
-          #bounds: #(#Rectangle 27 29 202 355)
+          #bounds: #(#Rectangle 16 49 191 375)
           #menu: #mainMenu
+          #icon: #defaultIcon
         )
         #component: 
        #(#SpecCollection
@@ -270,6 +285,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.63 1999-08-28 12:17:56 cg Exp $'
-
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.64 1999-08-28 12:53:20 cg Exp $'
 ! !