--- a/GradientBackground.st	Thu Jan 27 18:30:41 2011 +0100
+++ b/GradientBackground.st	Mon Jan 31 17:29:00 2011 +0100
@@ -125,9 +125,9 @@
                 lastR := rC. lastG := gC. lastB := bC.
             ].
             aView displayLineFromX:x y:y+yP toX:xRight y:y+yP.
-            r := r + dR.
-            g := g + dG.
-            b := b + dB.
+            r := (r + dR) min:r2.
+            g := (g + dG) min:g2.
+            b := (b + dB) min:b2.
         ].
         ^ self.
     ].
@@ -151,19 +151,19 @@
                 lastR := rC. lastG := gC. lastB := bC.
             ].
             aView displayLineFromX:x+xP y:y toX:x+xP y:yBot.
-            r := r + dR.
-            g := g + dG.
-            b := b + dB.
+            r := (r + dR) min:r2.
+            g := (g + dG) min:g2.
+            b := (b + dB) min:b2.
         ].
         ^ self.
     ]
 
     "Created: / 23-01-2011 / 01:59:29 / cg"
-    "Modified: / 23-01-2011 / 14:41:12 / cg"
+    "Modified: / 31-01-2011 / 17:28:53 / cg"
 ! !
 
 !GradientBackground class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.4 2011-01-23 13:41:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GradientBackground.st,v 1.5 2011-01-31 16:29:00 cg Exp $'
 ! !