--- a/GraphicsContext.st	Mon Sep 16 18:04:58 2019 +0200
+++ b/GraphicsContext.st	Tue Sep 17 21:08:45 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -2182,6 +2180,17 @@
 
 !GraphicsContext methodsFor:'filling'!
 
+clearRectangle:aRectangle
+    "clear the rectangular area in the receiver to white"
+
+    |oldPaint|
+
+    oldPaint := paint.
+    self paint:Color white.
+    self fillRectangle:aRectangle.
+    self paint:oldPaint.
+!
+
 fillArc:origin radius:r from:startAngle angle:angle
     "draw a filled arc around a point"
 
@@ -2447,6 +2456,14 @@
     ^ font ascentOn:device
 ! !
 
+!GraphicsContext methodsFor:'testing'!
+
+isPSGraphicsContext
+    "is this a postscript graphics context?"
+
+    ^ false
+! !
+
 !GraphicsContext class methodsFor:'documentation'!
 
 version