--- a/ObjectView.st	Sun Jul 04 19:01:56 1999 +0200
+++ b/ObjectView.st	Sun Jul 04 19:05:10 1999 +0200
@@ -960,15 +960,21 @@
      boundaries may be crossed."
 
     something notNil ifTrue:[
-	self select:something.
-	(self canMove:something) ifTrue:[
-	    self setMoveActions.
-	    moveStartPoint := aPoint.
-	    rootMotion := inRoot.
-	] ifFalse:[
-	    self setDefaultActions
-	]
+        (self canSelect:something) ifTrue:[
+            self select:something.
+            (self canMove:something) ifTrue:[
+                self setMoveActions.
+                moveStartPoint := aPoint.
+                rootMotion := inRoot.
+            ] ifFalse:[
+                self setDefaultActions
+            ]
+        ] ifFalse:[
+            self setDefaultActions
+        ]
     ]
+
+    "Modified: / 4.7.1999 / 18:58:08 / cg"
 !
 
 startRootObjectMove:something at:aPoint
@@ -3219,5 +3225,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.73 1999-07-04 17:01:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.74 1999-07-04 17:05:10 cg Exp $'
 ! !