--- a/ObjectView.st	Wed Jun 30 21:52:20 2004 +0200
+++ b/ObjectView.st	Fri Jul 02 11:10:31 2004 +0200
@@ -14,11 +14,11 @@
 
 View subclass:#ObjectView
 	instanceVariableNames:'contents sorted lastButt pressAction releaseAction
-		shiftPressAction doublePressAction motionAction keyPressAction
-		selection gridShown gridPixmap scaleMetric dragObject
-		leftHandCursor oldCursor movedObject moveStartPoint moveDelta
-		documentFormat canDragOutOfView rootMotion rootView aligning
-		gridAlign aligningMove'
+		shiftPressAction ctrlPressAction doublePressAction motionAction
+		keyPressAction selection gridShown gridPixmap scaleMetric
+		dragObject leftHandCursor oldCursor movedObject moveStartPoint
+		moveDelta documentFormat canDragOutOfView rootMotion rootView
+		aligning gridAlign aligningMove'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Basic'
@@ -1335,6 +1335,16 @@
 
 !ObjectView methodsFor:'event handling'!
 
+buttonCtrlPress:button x:x y:y
+    "user pressed left button with ctrl"
+
+    ctrlPressAction notNil ifTrue:[
+        lastButt := x @ y.
+        ctrlPressAction value:lastButt.
+        ^ self
+    ]
+!
+
 buttonMotion:buttonMask x:buttX y:buttY
     "user moved mouse while button pressed"
 
@@ -1408,6 +1418,9 @@
         self sensor shiftDown ifTrue:[
             ^ self buttonShiftPress:button x:x y:y
         ].
+        self sensor ctrlDown ifTrue:[
+            ^ self buttonCtrlPress:button x:x y:y
+        ].
 
         pressAction notNil ifTrue:[
             lastButt := x @ y.
@@ -3346,5 +3359,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.103 2004-06-25 09:54:53 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.104 2004-07-02 09:10:31 ca Exp $'
 ! !