--- a/GraphicsMedium.st	Mon Jan 08 14:42:38 2001 +0100
+++ b/GraphicsMedium.st	Mon Jan 08 18:33:01 2001 +0100
@@ -109,16 +109,21 @@
     "Modified: / 23.10.2000 / 16:50:44 / martin"
 !
 
-fillBlack:aRectangle
+fill:aRectangle fillColor:aColor
     "fill the rectangular area specified by aRectangle with the black color"
 
     |oldPaint|
 
     oldPaint := paint.
-    self paint:Black.
+    self paint:aColor.
     self fillRectangleX:aRectangle left y:aRectangle top width:aRectangle width height:aRectangle height.
     self paint:oldPaint
+!
 
+fillBlack:aRectangle
+    "fill the rectangular area specified by aRectangle with the black color"
+
+    self fill:aRectangle fillColor:Black
 !
 
 fillColor:something
@@ -131,13 +136,7 @@
 fillWhite:aRectangle
     "fill the rectangular area specified by aRectangle with the white color"
 
-    |oldPaint|
-
-    oldPaint := paint.
-    self paint:White.
-    self fillRectangleX:aRectangle left y:aRectangle top width:aRectangle width height:aRectangle height.
-    self paint:oldPaint
-
+    self fill:aRectangle fillColor:White
 ! !
 
 !GraphicsMedium methodsFor:'accessing'!
@@ -405,5 +404,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.14 2000-10-25 13:05:42 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.15 2001-01-08 17:32:44 cg Exp $'
 ! !