--- a/MenuItem.st	Thu Sep 14 21:55:06 2000 +0200
+++ b/MenuItem.st	Mon Sep 18 11:55:55 2000 +0200
@@ -15,7 +15,8 @@
 
 Object subclass:#MenuItem
 	instanceVariableNames:'activeHelpKey enabled label value nameKey adornment
-		translateLabel isButton startGroup isVisible hideMenuOnActivated'
+		translateLabel isButton startGroup isVisible hideMenuOnActivated
+		triggerOnDown'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Views-Support'
@@ -378,6 +379,19 @@
     "Modified: / 4.2.2000 / 12:40:19 / cg"
 !
 
+triggerOnDown
+   "trigger the action if pressed
+   "
+   ^ triggerOnDown ? false
+
+!
+
+triggerOnDown:aBool
+   "trigger the action if pressed
+   "
+    triggerOnDown := aBool.
+!
+
 value
     ^ value
 
@@ -621,8 +635,12 @@
     self isButton ifTrue:[
         coll add:#isButton:; add:true
     ].
+
+    triggerOnDown == true ifTrue:[
+        coll add:#triggerOnDown: ; add:triggerOnDown
+    ].
     hideMenuOnActivated == false ifTrue:[
-        coll add:#hideMenuOnActivated: ; add:false
+        coll add:#hideMenuOnActivated: ; add:hideMenuOnActivated
     ].
     nameKey notNil ifTrue:[
         coll add:#nameKey: ; add:(nameKey literalArrayEncoding)
@@ -1058,5 +1076,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.41 2000-09-01 10:17:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.42 2000-09-18 09:55:55 ca Exp $'
 ! !