ObjectView.st
changeset 782 f963155637e3
parent 749 19b1792b9506
child 810 80dcf2cc91a4
--- a/ObjectView.st	Fri Jul 05 18:10:17 1996 +0200
+++ b/ObjectView.st	Mon Jul 08 15:28:30 1996 +0200
@@ -22,7 +22,7 @@
 	category:'Views-Basic'
 !
 
-!ObjectView class methodsFor:'documentation'!
+!ObjectView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -284,7 +284,7 @@
 "
 ! !
 
-!ObjectView class methodsFor:'defaults'!
+!ObjectView  class methodsFor:'defaults'!
 
 hitDelta
     "when clicking an object, allow for hitDelta pixels around object;
@@ -1782,6 +1782,7 @@
     wasObscured := self isObscured:anObject.
 
     anObject moveTo:griddedNewOrigin.
+    shown ifFalse:[^ self].
 
     newFrame := self frameOf:anObject.
     objectsIntersectingNewFrame := self objectsIntersecting:newFrame.
@@ -2877,8 +2878,8 @@
     "Modified: 29.5.1996 / 16:20:49 / cg"
 ! !
 
-!ObjectView class methodsFor:'documentation'!
+!ObjectView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.47 1996-06-05 09:42:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.48 1996-07-08 13:28:30 ca Exp $'
 ! !