--- a/GraphicsMedium.st	Fri Mar 05 12:12:16 2004 +0100
+++ b/GraphicsMedium.st	Fri Mar 05 13:41:45 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -317,12 +319,7 @@
 clear
     "clear the receiver with background"
 
-    "currently need this kludge for form ..."
-    transformation isNil ifTrue:[
-	self clearRectangleX:0 y:0 width:width height:height
-    ] ifFalse:[
-	self clearDeviceRectangleX:0 y:0 width:width height:height
-    ]
+    self clearView.
 !
 
 clearInside
@@ -353,6 +350,17 @@
     "Modified: 28.5.1996 / 20:14:11 / cg"
 !
 
+clearView
+    "clear the receiver with background"
+
+    "currently need this kludge for form ..."
+    transformation isNil ifTrue:[
+        self clearRectangleX:0 y:0 width:width height:height
+    ] ifFalse:[
+        self clearDeviceRectangleX:0 y:0 width:width height:height
+    ]
+!
+
 fill:something
     "fill the receiver with something;
      something may be a Form, Color or colorIndex"
@@ -404,5 +412,5 @@
 !GraphicsMedium class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.16 2003-05-07 14:30:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsMedium.st,v 1.17 2004-03-05 12:41:45 cg Exp $'
 ! !