class: GraphicsContext
comment/format in: #whiteColor
changed: #drawEdgesForX:y:width:height:level:shadow:light:halfShadow:halfLight:style:
--- 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 $'
! !