--- a/ObjectView.st	Wed Mar 03 17:52:13 2004 +0100
+++ b/ObjectView.st	Fri Mar 05 13:43:37 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1107,8 +1109,8 @@
     "redraw complete View"
 
     shown ifTrue:[
-	self clear.
-	self redrawObjects
+        self clearView.
+        self redrawObjects
     ]
 !
 
@@ -1753,7 +1755,7 @@
     gridPixmap := nil.
     shown ifTrue:[
         self viewBackground:White.
-        self clear.
+        self clearView.
     ].
 
     gridShown ifTrue:[
@@ -3323,5 +3325,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.100 2004-02-26 12:19:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.101 2004-03-05 12:43:37 cg Exp $'
 ! !