ctrl-action
authorca
Fri, 02 Jul 2004 11:10:07 +0200
changeset 1861 4c173871788a
parent 1860 ec3a07f0b145
child 1862 d10363a83240
ctrl-action
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'!