# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1078490647 -3600
# Node ID a0f73e1695e1f2d274773aeea3e361853ee0fba8
# Parent  025c946eea703c241600f55189aff2ba7905f2ea
clear -> clearView
To allow subclasses of GraphicsContext to redefine #clear
with more clearing (i.e. a TextCollector, to clear its contents)

diff -r 025c946eea70 -r a0f73e1695e1 UIPainter.st
--- a/UIPainter.st	Wed Mar 03 22:57:39 2004 +0100
+++ b/UIPainter.st	Fri Mar 05 13:44:07 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995-1998 by eXept Software AG
 	      All Rights Reserved
@@ -3235,7 +3237,7 @@
     painter gridParameters:gridPara.
     painter gridShown: (settings at: #GridShown ifAbsent:false).
     painter gridAlign: (settings at: #GridAlign ifAbsent:false).
-    painter shown ifTrue:[painter clear].
+    painter shown ifTrue:[painter clearView].
 
     cls notNil ifTrue:[
         self setClass:cls selector:sel.
@@ -3527,7 +3529,7 @@
     bindings at:#vspace      put:((gridPara at:2) asValue).
 
     (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
-	^ self
+        ^ self
     ].
 
     hspace := (bindings at:#hspace) value ? 5.
@@ -3548,7 +3550,7 @@
     settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
     settings at: #HGridSpace put: hspace.
     settings at: #VGridSpace put: vspace.
-    painter clear.
+    painter clearView.
 
     "Modified: / 4.2.1999 / 15:36:34 / cg"
 !