# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1404854464 -7200
# Node ID 163c6d4706247ca6622a1481a2e9c74544034a77
# Parent  876e009486be0ef3c238360d90020888a9b312fa
class: GraphicsContext
comment/format in: #whiteColor
changed: #drawEdgesForX:y:width:height:level:shadow:light:halfShadow:halfLight:style:

diff -r 876e009486be -r 163c6d470624 GraphicsContext.st
--- a/GraphicsContext.st	Tue Jul 08 23:20:20 2014 +0200
+++ b/GraphicsContext.st	Tue Jul 08 23:21:04 2014 +0200
@@ -1045,6 +1045,9 @@
 !
 
 whiteColor
+    "return the white color on this device.
+     This is the same as 'Color white on:self device', but much faster."
+
     ^ device whiteColor
 ! !
 
@@ -2123,7 +2126,7 @@
         style:nil 
 !
 
-drawEdgesForX:x y:y width:w height:h level:l 
+drawEdgesForX:x y:y width:w height:h level:lvl 
                 shadow:shadowColor light:lightColor
                 halfShadow:halfShadowColor halfLight:halfLightColor
                 style:edgeStyle
@@ -2138,7 +2141,7 @@
      yi    "{ Class: SmallInteger }"
      run paint|
 
-    count := l.
+    count := lvl.
     (count < 0) ifTrue:[
         topLeftFg := shadowColor.
         botRightFg := lightColor.
@@ -2185,11 +2188,11 @@
         self displayDeviceLineFromX:x y:y toX:r y:y. 
         self displayDeviceLineFromX:x y:y toX:x y:b        
 "
-        (l > 1) ifTrue:[
+        (lvl > 1) ifTrue:[
             edgeStyle == #softWin95 ifTrue:[
-                self paint:(Color veryLightGrey).
+                self paint:(Color veryLightGray).
             ] ifFalse:[
-                (l > 2 and:[edgeStyle == #soft]) ifTrue:[
+                (lvl > 2 and:[edgeStyle == #soft]) ifTrue:[
                     self paint:(device blackColor).
                 ] ifFalse:[
                     self paint:halfLightColor.
@@ -2228,7 +2231,7 @@
         yi := yi + 1
     ].
     ((edgeStyle == #soft or:[edgeStyle == #softWin95]) 
-    and:[l > 1]) ifTrue:[
+    and:[lvl > 1]) ifTrue:[
         self paint:(device blackColor) "shadowColor".
         self displayDeviceLineFromX:x y:b toX:r y:b. 
         self displayDeviceLineFromX:r y:y toX:r y:b        
@@ -2521,11 +2524,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.136 2014-04-12 11:35:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.137 2014-07-08 21:21:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.136 2014-04-12 11:35:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.137 2014-07-08 21:21:04 cg Exp $'
 ! !