--- a/MemoryMonitor.st	Mon Jul 27 18:40:05 1998 +0200
+++ b/MemoryMonitor.st	Mon Jul 27 19:58:22 1998 +0200
@@ -587,7 +587,9 @@
     freeData := Array new:1000.
 
     updateIndex := 1.
-    org := font widthOf:'max 99999k'.
+
+    self font:((Font family:'courier' face:'medium' style:'roman' size:10) onDevice:device).
+    org := font widthOf:'max 99999k '.
     level := 0.
 
     maxTotal := minTotal := ObjectMemory oldSpaceSize 
@@ -606,8 +608,6 @@
         oldColor := Color white.
     ].
 
-    self font:(Font family:'courier' face:'medium' style:'roman' size:10).
-
     self model:self.
     self menu:#memoryMenu
 
@@ -615,7 +615,7 @@
      MemoryMonitor open
     "
 
-    "Modified: 23.1.1997 / 22:37:06 / cg"
+    "Modified: / 27.7.1998 / 19:57:07 / cg"
 !
 
 memoryMenu
@@ -678,26 +678,26 @@
 realize
     super realize.
     updateBlock notNil ifTrue:[
-	Processor addTimedBlock:updateBlock afterSeconds:updateInterval.
+        Processor addTimedBlock:updateBlock afterSeconds:updateInterval.
     ] ifFalse:[
-	myProcess := [
-	    |d|
+        myProcess := [
+            |d|
 
-	    [true] whileTrue:[
-		(Delay forSeconds:updateInterval) wait.
-		self updateDisplay
-	    ]
-	] forkAt:6.
-	myProcess name:'monitor [' , 
-		       Processor activeProcess id printString ,
-		       '] update'
+            [true] whileTrue:[
+                (Delay forSeconds:updateInterval) wait.
+                self updateDisplay
+            ]
+        ] forkAt:6.
+        myProcess name:'monitor [' , 
+                       Processor activeProcess id printString ,
+                       '] update'
     ].
 
     newColor := newColor on:device.
     freeColor := freeColor on:device.
     oldColor := oldColor on:device.
 
-    font := font on:device.
+    "Modified: / 27.7.1998 / 19:57:51 / cg"
 ! !
 
 !MemoryMonitor methodsFor:'menu functions'!
@@ -899,5 +899,5 @@
 !MemoryMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.50 1998-07-15 11:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/MemoryMonitor.st,v 1.51 1998-07-27 17:58:22 cg Exp $'
 ! !