UIObjectView.st
changeset 1861 4c173871788a
parent 1833 6ad211a201cf
child 1895 b7d6683ebaca
--- a/UIObjectView.st	Fri Jun 25 12:35:28 2004 +0200
+++ b/UIObjectView.st	Fri Jul 02 11:10:07 2004 +0200
@@ -714,13 +714,13 @@
     "
     pressAction      := [:pressPoint | self startSelectOrMove:pressPoint].
     shiftPressAction := [:pressPoint | self startSelectMoreOrMove:pressPoint].
+    ctrlPressAction  := [:pressPoint | self startSelectMoreOrMove:pressPoint].
     motionAction     := [:movePoint  | nil].
     releaseAction    := [nil].
     keyPressAction   := nil.
     doublePressAction   := [:pressPoint | self doublePressed: pressPoint].
 
     self cursor:Cursor normal.
-
 ! !
 
 !UIObjectView methodsFor:'object moving'!