--- a/GraphicsMedium.st	Tue May 28 19:43:28 1996 +0200
+++ b/GraphicsMedium.st	Tue May 28 19:44:30 1996 +0200
@@ -341,42 +341,27 @@
     "Modified: 8.5.1996 / 08:40:14 / cg"
 !
 
-fillPolygon:aPolygon with:aPattern
-    "fill a polygon in the receiver with aPattern,
+fillRectangleX:x y:y width:w height:h with:aColor
+    "fill the rectangular area in the receiver with aColor,
      which may be a Form or Color"
 
-    self withPattern:aPattern do:[
-	self fillPolygon:aPolygon
-    ]
-!
-
-fillRectangle:aRectangle with:something
-    "fill the rectangular area in the receiver with something;
-     something may be a Form, Color or colorIndex"
+    |oldPaint|
 
-    self fillRectangleX:(aRectangle left)
-		      y:(aRectangle top)
-		  width:(aRectangle width)
-		 height:(aRectangle height)
-		   with:something
-!
-
-fillRectangleX:x y:y width:w height:h with:aPattern
-    "fill the rectangular area in the receiver with aPattern,
-     which may be a Form or Color"
-
-    self withPattern:aPattern do:[
-	self fillRectangleX:x y:y width:w height:h
-    ]
+    oldPaint := paint.
+    self paint:aColor.
+    self fillRectangleX:x y:y width:w height:h.
+    self paint:oldPaint.
 
     "
-     Display rootView 
-	fillRectangleX:0
-		     y:0
-		 width:50
-		height:50
-		  with:(Color grey:50)
+     Screen current rootView 
+        fillRectangleX:0
+                     y:0
+                 width:50
+                height:50
+                  with:(Color grey:50)
     "
+
+    "Modified: 28.5.1996 / 19:37:50 / cg"
 !
 
 invertRectangle:aRectangle
@@ -416,5 +401,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.3 1996-05-28 17:27:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.4 1996-05-28 17:44:30 cg Exp $'
 ! !