--- a/GradientBackground.st Wed Feb 22 19:11:33 2017 +0100
+++ b/GradientBackground.st Wed Feb 22 21:09:09 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2009 by eXept Software AG
All Rights Reserved
@@ -410,7 +408,10 @@
!GradientBackground methodsFor:'drawing'!
fillRectangleX:x y:y width:w height:h in:aGC
- "this is a first (very inefficient) try"
+ "fill a rectangular area in aGC with a color gradient through colors (yes, more than 2 are possible).
+ This is a first (very inefficient) try;
+ as it is (currently) only used for some splash-screens and in
+ expecco's demo mode, we don't really care for much performance (yet)"
|hHalf wHalf h1 h2 w1 w2 usedHeight usedWidth scaleStartX scaleStartY x2 y2
usedHeight2 usedWidth2 scaleStartX2 scaleStartY2 direction numSegs
@@ -526,6 +527,8 @@
pos := startPos := endPart.
segNr := segNr + 1.
].
+
+ "Modified (comment): / 22-02-2017 / 21:09:03 / cg"
! !
!GradientBackground methodsFor:'queries'!