--- a/Image.st	Tue Apr 22 19:25:47 1997 +0200
+++ b/Image.st	Tue Apr 22 19:36:11 1997 +0200
@@ -7170,25 +7170,37 @@
 !Image methodsFor:'drawing'!
 
 fillRectangleX:x y:y width:w height:h with:aColor
-    |pixel 
-     xI "{ Class: SmallInteger }"
+    "fill a rectangular area with a color"
+
+    |pixel|
+
+    pixel := self valueFromColor:aColor.
+    self fillRectangleX:x y:y width:w height:h withValue:pixel
+
+    "Modified: 22.4.1997 / 14:02:50 / cg"
+!
+
+fillRectangleX:x y:y width:w height:h withValue:aPixelValue
+    "fill a rectangular area with some pixel value.
+     May be redefined in concrete subclasses for more performance, if req'd."
+
+    |xI "{ Class: SmallInteger }"
      yI "{ Class: SmallInteger }"
      wI "{ Class: SmallInteger }" 
      hI "{ Class: SmallInteger }"|
 
-    pixel := self valueFromColor:aColor.
     xI := x.
     yI := y.
     wI := w.
     hI := h.
     yI to:yI+hI-1 do:[:yRun |
         xI to:xI+wI-1 do:[:xRun |
-            self atX:xRun y:yRun putValue:pixel
+            self atX:xRun y:yRun putValue:aPixelValue
         ]
     ]
 
-    "Created: 15.6.1996 / 08:41:25 / cg"
-    "Modified: 15.6.1996 / 10:08:15 / cg"
+    "Created: 22.4.1997 / 14:02:14 / cg"
+    "Modified: 22.4.1997 / 14:03:51 / cg"
 ! !
 
 !Image methodsFor:'enumerating'!
@@ -7704,12 +7716,14 @@
     ^ self magnifiedBy:(rX min:rY)
 
     "
-     ((Image fromFile:'bitmaps/garfield.gif') magnifiedPreservingRatioTo:100@100)
+     ((Image fromFile:'bitmaps/gifImages/garfield.gif') magnifiedPreservingRatioTo:100@100)
 
     in contrast to:
 
-     ((Image fromFile:'bitmaps/garfield.gif') magnifiedTo:100@100)
-    "
+     ((Image fromFile:'bitmaps/gifImages/garfield.gif') magnifiedTo:100@100)
+    "
+
+    "Modified: 22.4.1997 / 12:33:46 / cg"
 !
 
 magnifiedTo:anExtent 
@@ -8728,6 +8742,12 @@
     ^ true
 !
 
+isMask
+    ^ false
+
+    "Created: 22.4.1997 / 14:12:02 / cg"
+!
+
 pixelArraySpecies
     "return the kind of pixel-value container in rowAt:/rowAt:put: methods"
 
@@ -9466,6 +9486,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.175 1997-04-21 11:57:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.176 1997-04-22 17:36:11 cg Exp $'
 ! !
 Image initialize!