--- 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).