--- a/MenuItem.st	Wed Aug 20 17:33:19 2008 +0200
+++ b/MenuItem.st	Wed Aug 20 21:43:17 2008 +0200
@@ -265,7 +265,7 @@
 !
 
 indication
-    "test whether the menu item has an on/off indicator (CheckToggle)"
+    "value of the items on/off indicator (CheckToggle)"
     
     ^ indication
 
@@ -273,7 +273,7 @@
 !
 
 indication:something 
-    "test whether the menu item has an on/off indicator (CheckToggle)"
+    "value of the items on/off indicator (CheckToggle)"
     
     indication := something.
 
@@ -392,22 +392,6 @@
     self 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
-
-!
-
 submenu
     "get the submenu or nil"
     
@@ -532,6 +516,22 @@
     sendToOriginator := anBoolean
 !
 
+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
+
+!
+
 translateLabel
     "returns true if the label is to be translated"
 
@@ -918,5 +918,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.84 2008-07-09 12:46:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.85 2008-08-20 19:43:17 cg Exp $'
 ! !