--- 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'!