MemoryMonitorView.st
branchjv
changeset 16256 65473fc50115
parent 16093 a0705d7461fd
parent 16251 4a0adeeff6df
child 16748 62486fba2d74
--- a/MemoryMonitorView.st	Sat Apr 02 06:55:28 2016 +0200
+++ b/MemoryMonitorView.st	Sun Apr 03 07:05:07 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -626,7 +624,7 @@
 
     updateIndex := 1.
 
-    self font:((Font family:'courier' face:'medium' style:'roman' size:10) onDevice:self device).
+    self font:((Font family:'courier' face:'medium' style:'roman' size:10) onDevice:device).
     org := gc font widthOf:'max 99999k '.
     level := 0.
 
@@ -636,7 +634,7 @@
 
     viewBackground := self blackColor.
 
-    self graphicsDevice hasColors ifTrue:[
+    device hasColors ifTrue:[
         newColor := Color orange. "/ yellow.
         freeColor := Color green.
         mallocColor := Color yellow.
@@ -681,7 +679,7 @@
         ].
     ].
 
-    graphicsDevice := self graphicsDevice.
+    graphicsDevice := device.
     newColor := newColor onDevice:graphicsDevice.
     freeColor := freeColor onDevice:graphicsDevice.
     oldColor := oldColor onDevice:graphicsDevice.