# HG changeset patch
# User ca
# Date 860523419 -7200
# Node ID 01775d3d8489db4c3d420c91e4966b2b7084ff24
# Parent  25a9fd61400ca239277e6f855550a02cac3f0ce3
startSelectOrMove:aPoint
    in case of ctrlDown pressed the single selection will be moved
    and not the object under the mouse

diff -r 25a9fd61400c -r 01775d3d8489 UIObjectView.st
--- a/UIObjectView.st	Tue Apr 08 01:38:44 1997 +0200
+++ b/UIObjectView.st	Tue Apr 08 20:16:59 1997 +0200
@@ -699,16 +699,22 @@
             (b notNil and:[b ~~ #view]) ifTrue:[
                 ^ self startResizeBorder:b of:aView.
             ]
+        ].
+
+        (self sensor ctrlDown and:[self canMove:aView]) ifFalse:[
+            aView := nil
         ]
     ].
 
-    (aView := self findObjectAt:aPoint) isNil ifTrue:[
-        ^ self unselect
-    ].
-
-    (self canMove:aView) ifFalse:[
-        super unselect.
-      ^ self select:aView
+    aView isNil ifTrue:[
+        (aView := self findObjectAt:aPoint) isNil ifTrue:[
+            ^ self unselect
+        ].
+
+        (self canMove:aView) ifFalse:[
+            super unselect.
+          ^ self select:aView
+        ]
     ].
 
     (self isSelected:aView) ifFalse:[