--- a/GraphicsMedium.st	Fri Nov 12 19:02:45 1999 +0100
+++ b/GraphicsMedium.st	Fri Nov 12 19:05:14 1999 +0100
@@ -51,11 +51,35 @@
 
 !GraphicsMedium methodsFor:'Compatibility - Squeak'!
 
+fillBlack:aRectangle
+    "fill the rectangular area specified by aRectangle with the black color"
+
+    |oldPaint|
+
+    oldPaint := paint.
+    self paint:Black.
+    self fillRectangleX:aRectangle left y:aRectangle top width:aRectangle width height:aRectangle height.
+    self paint:oldPaint
+
+!
+
 fillColor:something
     "fill the receiver with something;
      something may be a Form, Color or colorIndex"
 
     self fill:something
+!
+
+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
+
 ! !
 
 !GraphicsMedium methodsFor:'accessing'!
@@ -323,5 +347,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.11 1999-10-07 11:20:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.12 1999-11-12 18:05:14 ps Exp $'
 ! !