AboutBox.st
branchjv
changeset 16256 65473fc50115
parent 16237 bc32adffa408
parent 16245 f235dd822a2c
child 16572 ab23beb4bba6
--- a/AboutBox.st	Sat Apr 02 06:55:28 2016 +0200
+++ b/AboutBox.st	Sun Apr 03 07:05:07 2016 +0200
@@ -188,7 +188,7 @@
 initialize
     "setup the box; change all of my components viewBackground to some darkish grey."
 
-    |dark green lbl graphicsDevice|
+    |dark green lbl|
 
     super initialize.
 
@@ -196,8 +196,8 @@
 
     green := self class defaultGreen.    
     dark := Color grey:20.
-    (graphicsDevice := self graphicsDevice) hasColors ifFalse:[
-        graphicsDevice hasGrayscales ifTrue:[
+    device hasColors ifFalse:[
+        device hasGrayscales ifTrue:[
             green := Color brightness:(green brightness).    
             dark := Color brightness:(dark brightness).    
         ] ifFalse:[