--- a/Image.st	Thu Feb 16 17:29:40 1995 +0100
+++ b/Image.st	Fri Feb 17 14:21:06 1995 +0100
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Image.st,v 1.20 1995-02-16 16:29:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.21 1995-02-17 13:21:06 claus Exp $
 '!
 
 !Image class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Image.st,v 1.20 1995-02-16 16:29:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.21 1995-02-17 13:21:06 claus Exp $
 "
 !
 
@@ -2073,10 +2073,12 @@
 
      ^ self 
 	copyWithColorMapProcessing:[:clr | |r g b|
-					   r := clr red. g := clr green. b := clr blue.
-					   Color red:(r + (255-r//2)) 
-						 green:(g + (255-g//2))
-						 blue:(b + (255-b//2))]
+					   r := clr red. 
+					   g := clr green. 
+					   b := clr blue.
+					   Color red:(r + (100-r//2)) 
+						 green:(g + (100-g//2))
+						 blue:(b + (100-b//2))]
 
     "
      (Image fromFile:'bitmaps/claus.gif') inspect
@@ -2092,7 +2094,10 @@
      Need an argument, which specifies by how much it should be darker."
 
      ^ self 
-	copyWithColorMapProcessing:[:clr | Color red:(clr r // 2) green:(clr green // 2) blue:(clr blue // 2)] 
+	copyWithColorMapProcessing:[:clr | 
+		Color red:(clr red // 2) 
+		    green:(clr green // 2) 
+		     blue:(clr blue // 2)] 
 
     "
      (Image fromFile:'bitmaps/claus.gif') inspect