--- a/MenuEditor.st	Wed Oct 23 10:55:47 2002 +0200
+++ b/MenuEditor.st	Thu Oct 24 15:46:45 2002 +0200
@@ -190,30 +190,30 @@
     "get the aspects for the attributes of the menu components"
 
     ^#(
-	rawLabel
-	accessCharacterPosition
-	showBusyCursorWhilePerforming
-	horizontalLayout
-	triggerOnDown
-	font
-	argument
-	submenuChannel
-	keepLinkedMenu
-	enabled
-	value
-	nameKey
-	indication
-	choice
-	choiceValue
-	translateLabel
-	isButton
-	shortcutKeyCharacter
-	startGroup
-	isVisible
-	hideMenuOnActivated
-	auxValue
-	activeHelpKey
-	resourceRetriever
+        rawLabel
+        accessCharacterPosition
+        showBusyCursorWhilePerforming
+        horizontalLayout
+        triggerOnDown
+        font
+        argument
+        submenuChannel
+        keepLinkedMenu
+        enabled
+        itemValue
+        nameKey
+        indication
+        choice
+        choiceValue
+        translateLabel
+        isButton
+        shortcutKeyCharacter
+        startGroup
+        isVisible
+        hideMenuOnActivated
+        auxValue
+        activeHelpKey
+        resourceRetriever
      )
 ! !
 
@@ -235,13 +235,69 @@
 !MenuEditor class methodsFor:'help specs'!
 
 flyByHelpSpec
-    ^super flyByHelpSpec addPairsFrom:(self localHelpSpecStrings)
+    ^super flyByHelpSpec addPairsFrom:(self localFlyHelpSpecStrings)
 !
 
 helpSpec
     ^super helpSpec addPairsFrom:(self localHelpSpecStrings)
 !
 
+localFlyHelpSpecStrings
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:MenuEditor    
+    "
+
+    <resource: #help>
+
+    ^ #(
+
+#fileLoad
+'Load Spec from Class'
+
+#fileSave
+'Save Spec'
+
+#fileSaveAs
+'Save Spec As'
+
+#addMenuSeparator
+'Add Separator'
+
+#addMenuItem
+'Add Item'
+
+#addSubMenu
+'Add Submenu'
+
+#addDelayedMenu
+'Add Delayed Menu'
+
+#addDelayedSubMenuLink
+'Add linked Delayed Menu'
+
+#addSubMenuLink
+'Add Linked Submenu.'
+
+#browseResource
+'Search for methods with image resource.'
+
+#fileNew
+'New Spec'
+
+#filePickAMenu
+'Pick from View'
+
+#fileShowMenuSpec
+'Show Spec'
+)
+!
+
 localHelpSpecStrings
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -2056,22 +2112,22 @@
         anItem   enabled:true.
         anItem translateLabel:false.
 
-        anItem value ifNotNil:[
-            anItem value:[ Transcript showCR:(anItem label) ].
+        anItem itemValue notNil ifTrue:[
+            anItem itemValue:[ Transcript showCR:(anItem label) ].
         ].
-        anItem indication ifNotNil:[
-            indication ifNil:[ indication := true asValue ].
+        anItem indication notNil ifTrue:[
+            indication isNil ifTrue:[ indication := true asValue ].
             anItem indication:indication
         ].
-        anItem choice ifNotNil:[
-            choice ifNil:[ choice := anItem choiceValue asValue ].
+        anItem choice notNil ifTrue:[
+            choice isNil ifTrue:[ choice := anItem choiceValue asValue ].
             anItem choice:choice
         ].
 
-        anItem submenuChannel ifNotNil:[
+        anItem submenuChannel notNil ifTrue:[
             anItem submenuChannel:nil.
-            anItem submenu ifNil:[    
-                submenu ifNil:[
+            anItem submenu isNil ifTrue:[    
+                submenu isNil ifTrue:[
                     submenu := Menu new.
                     submenu addItem:(MenuItem labeled:'Linked Menu...').
                 ].
@@ -2079,8 +2135,8 @@
             ].
         ].
         retriever := anItem resourceRetriever.
-        retriever ifNotNil:[
-            retriever labelText ifNotNil:[ retriever labelText:(anItem label) ]
+        retriever notNil ifTrue:[
+            retriever labelText notNil ifTrue:[ retriever labelText:(anItem label) ]
         ].
     ].
     menu findGuiResourcesIn:(self resolveName:specClass).