--- a/ObjectView.st	Thu May 27 15:07:14 2004 +0200
+++ b/ObjectView.st	Fri May 28 14:32:40 2004 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1234,7 +1232,9 @@
         oldClip := clipRect.
         self clippingRectangle:vis.
 
-        self clearRectangle:vis.
+        "/ no clear background; already done in redrawX:y:width:height:
+        "/ self clearRectangle:vis.
+
         self redrawObjectsIntersecting:vis.
 
         self clippingRectangle:oldClip
@@ -3325,5 +3325,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.101 2004-03-05 12:43:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.102 2004-05-28 12:32:40 ca Exp $'
 ! !