GradientBackground.st
changeset 7934 5c7dd401bfa2
parent 7359 dfee1b97dc3b
child 7935 1d8d21aa47e7
--- 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'!