--- a/ObjView.st	Wed Jun 05 11:41:49 1996 +0200
+++ b/ObjView.st	Wed Jun 05 11:42:33 1996 +0200
@@ -1291,12 +1291,13 @@
 redrawX:x y:y width:w height:h
     |redrawFrame |
 
+    redrawFrame := Rectangle left:x top:y width:w height:h.
+    self clearRectangle:redrawFrame.
     ((contents size ~~ 0) or:[gridShown]) ifTrue:[
-        redrawFrame := Rectangle left:x top:y width:w height:h.
         self redrawObjectsInVisible:redrawFrame
     ]
 
-    "Modified: 8.5.1996 / 21:01:32 / cg"
+    "Modified: 5.6.1996 / 10:42:19 / cg"
 ! !
 
 !ObjectView methodsFor:'grid manipulation'!
@@ -2879,5 +2880,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.46 1996-06-04 19:20:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.47 1996-06-05 09:42:33 cg Exp $'
 ! !

--- a/ObjectView.st	Wed Jun 05 11:41:49 1996 +0200
+++ b/ObjectView.st	Wed Jun 05 11:42:33 1996 +0200
@@ -1291,12 +1291,13 @@
 redrawX:x y:y width:w height:h
     |redrawFrame |
 
+    redrawFrame := Rectangle left:x top:y width:w height:h.
+    self clearRectangle:redrawFrame.
     ((contents size ~~ 0) or:[gridShown]) ifTrue:[
-        redrawFrame := Rectangle left:x top:y width:w height:h.
         self redrawObjectsInVisible:redrawFrame
     ]
 
-    "Modified: 8.5.1996 / 21:01:32 / cg"
+    "Modified: 5.6.1996 / 10:42:19 / cg"
 ! !
 
 !ObjectView methodsFor:'grid manipulation'!
@@ -2879,5 +2880,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.46 1996-06-04 19:20:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.47 1996-06-05 09:42:33 cg Exp $'
 ! !