#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Wed, 22 Feb 2017 21:09:09 +0100
changeset 7934 5c7dd401bfa2
parent 7933 e2afc749c8c1
child 7935 1d8d21aa47e7
#DOCUMENTATION by cg class: GradientBackground comment/format in: #fillRectangleX:y:width:height:in:
GradientBackground.st
--- 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'!