--- 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.