# HG changeset patch
# User ca
# Date 1088759407 -7200
# Node ID 4c173871788a8fdf97d6ae0861581310a313a458
# Parent  ec3a07f0b14597e6d01f3ee8bbf0da76fad60731
ctrl-action

diff -r ec3a07f0b145 -r 4c173871788a UIObjectView.st
--- 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'!