--- a/MenuItem.st	Wed Feb 09 20:18:18 2000 +0100
+++ b/MenuItem.st	Sat Feb 12 14:24:31 2000 +0100
@@ -22,7 +22,7 @@
 Object subclass:#MenuItemAdornment
 	instanceVariableNames:'color indication submenu submenuChannel shortcutKey labelText
 		labelImage accessCharacterPosition argument choice choiceValue
-		auxValue'
+		auxValue showBusyCursorWhilePerforming'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuItem
@@ -266,6 +266,25 @@
     "Modified: / 4.2.2000 / 12:39:30 / cg"
 !
 
+showBusyCursorWhilePerforming
+    "get the flag which controls if a busy cursor is to be shown
+     while performing the menu action. Defaults to false."
+
+    adornment notNil ifTrue:[
+        ^ adornment showBusyCursorWhilePerforming
+    ].
+    ^ nil
+!
+
+showBusyCursorWhilePerforming:aBoolean
+    "set/clear the flag which controls if a busy cursor is to be shown
+     while performing the menu action. Defaults to false."
+
+    ((aBoolean == true) or:[adornment notNil]) ifTrue:[
+        self adornment showBusyCursorWhilePerforming:aBoolean
+    ]
+!
+
 startGroup
     "start group #left #right #center ... or nil
      at the moment only #right is implemented
@@ -566,6 +585,10 @@
             coll add:#accessCharacterPosition: ; add:(something literalArrayEncoding)
         ].
 
+        (something := self showBusyCursorWhilePerforming) == true ifTrue:[
+            coll add:#showBusyCursorWhilePerforming: ; add:(something literalArrayEncoding)
+        ].
+
         (something := self argument) notNil ifTrue:[
             coll add:#argument: ; add:(something literalArrayEncoding)
         ].
@@ -852,6 +875,22 @@
     shortcutKey := something.
 !
 
+showBusyCursorWhilePerforming
+    "get the flag which controls if a busy cursor is to be shown
+     while performing the menu action. Defaults to false."
+
+    ^ showBusyCursorWhilePerforming ? false
+
+!
+
+showBusyCursorWhilePerforming:aBoolean
+    "set/clear the flag which controls if a busy cursor is to be shown
+     while performing the menu action. Defaults to false."
+
+    showBusyCursorWhilePerforming := aBoolean
+
+!
+
 staticSubmenu
     "get the submenu or nil;
      only returns the subMenu if its a static subMenu (i.e. not
@@ -917,5 +956,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.36 2000-02-05 15:44:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.37 2000-02-12 13:24:31 cg Exp $'
 ! !