--- a/ObjectView.st	Fri Nov 19 14:27:56 1999 +0100
+++ b/ObjectView.st	Fri Nov 19 15:35:01 1999 +0100
@@ -1943,7 +1943,7 @@
 
     intersects := oldFrame intersects:newFrame.
     intersects ifFalse:[
-        gridShown ifFalse:[
+        self hasSolidBackground ifTrue:[
             transformation isNil ifTrue:[
                 (objectsIntersectingOldFrame size == 1) ifTrue:[
                     (objectsIntersectingNewFrame size == 1) ifTrue:[
@@ -2391,6 +2391,13 @@
 
 !ObjectView methodsFor:'queries'!
 
+hasSolidBackground
+    "return true, if I have a solid color background, which can be pixel-copied
+     for optimized redraw in moveObject."
+
+    ^ gridShown not
+!
+
 heightOfContents
     "answer the height of the document in pixels"
 
@@ -3225,5 +3232,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.75 1999-07-05 11:21:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.76 1999-11-19 14:35:01 ps Exp $'
 ! !