--- a/ObjectView.st	Fri Oct 27 09:46:50 2006 +0200
+++ b/ObjectView.st	Fri Oct 27 14:06:31 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 View subclass:#ObjectView
@@ -365,6 +364,18 @@
 
 !ObjectView methodsFor:'accessing-behavior'!
 
+ctrlPressAction:aBlock
+    ctrlPressAction := aBlock
+
+    "Created: / 27-10-2006 / 14:06:41 / cg"
+!
+
+doublePressAction:aBlock
+    doublePressAction := aBlock
+
+    "Created: / 27-10-2006 / 14:06:49 / cg"
+!
+
 keyPressAction:aBlock
     keyPressAction := aBlock
 !
@@ -375,6 +386,8 @@
 
 pressAction:aBlock
     pressAction := aBlock
+
+    "Modified: / 27-10-2006 / 14:06:34 / cg"
 !
 
 releaseAction:aBlock
@@ -390,6 +403,12 @@
     releaseAction := [nil]
 
     "Modified: / 4.7.1999 / 18:55:01 / cg"
+!
+
+shiftPressAction:aBlock
+    shiftPressAction := aBlock
+
+    "Created: / 27-10-2006 / 14:06:30 / cg"
 ! !
 
 !ObjectView methodsFor:'adding & removing'!
@@ -3407,5 +3426,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.121 2006-08-23 14:14:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.122 2006-10-27 12:06:31 cg Exp $'
 ! !