--- a/GradientBackground.st	Tue Mar 22 13:33:40 2011 +0100
+++ b/GradientBackground.st	Wed Mar 23 17:39:25 2011 +0100
@@ -183,9 +183,9 @@
             ].
             "xRight+1 since X11 does not show the last point of a line"
             aView displayLineFromX:x y:y+yP toX:xRight+1 y:y+yP.
-            r := r + dR "used to do min:r2 here, but this does not work if r2 < r1 and dR is negative".
-            g := g + dG .
-            b := b + dB.
+            r := (r + dR) "min:r2". "used to do min:r2 here, but this does not work if r2 < r1 and dR is negative"
+            g := (g + dG) "min:g2".
+            b := (b + dB) "min:b2".
         ].
         aView fillRectangleX:x y:hAll-1 width:w height:(h-hAll+1).
         ^ self.
@@ -211,20 +211,20 @@
             ].
             "yBot+1 since X11 does not show the last point of a line"
             aView displayLineFromX:x+xP y:y toX:x+xP y:yBot+1.
-            r := r + dR.
-            g := g + dG.
-            b := b + dB.
+            r := (r + dR) "min:r2".
+            g := (g + dG) "min:g2".
+            b := (b + dB) "min:b2".
         ].
         aView fillRectangleX:wAll y:y width:(w-wAll+1) height:h.
         ^ self.
     ]
 
     "Created: / 23-01-2011 / 01:59:29 / cg"
-    "Modified: / 03-02-2011 / 20:26:55 / cg"
+    "Modified: / 23-03-2011 / 17:39:05 / cg"
 ! !
 
 !GradientBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.7 2011-03-04 16:09:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.8 2011-03-23 16:39:25 cg Exp $'
 ! !