hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:87081b50bb22
+:438cc8200c87
 aspects
 "get the aspects for the attributes of the menu components"
 ^#(
-	rawLabel
+rawLabel
-	accessCharacterPosition
+accessCharacterPosition
-	showBusyCursorWhilePerforming
+showBusyCursorWhilePerforming
-	horizontalLayout
+horizontalLayout
-	triggerOnDown
+triggerOnDown
-	font
+font
-	argument
+argument
-	submenuChannel
+submenuChannel
-	keepLinkedMenu
+keepLinkedMenu
-	enabled
+enabled
-	itemValue
+itemValue
-	nameKey
+nameKey
-	indication
+indication
-	choice
+choice
-	choiceValue
+choiceValue
-	translateLabel
+translateLabel
-	isButton
+isButton
-	shortcutKeyCharacter
+shortcutKeyCharacter
-	startGroup
+startGroup
-	isVisible
+isVisible
-	hideMenuOnActivated
+hideMenuOnActivated
-	auxValue
+auxValue
-	activeHelpKey
+activeHelpKey
-	resourceRetriever
+resourceRetriever
-	sendToOriginator
+sendToOriginator
-	ignoreMnemonicKeys
+ignoreMnemonicKeys
-	ignoreShortcutKeys
+ignoreShortcutKeys
-	isMenuSlice
+isMenuSlice
+hasMenuIndicator
 )
+"Modified: / 09-08-2018 / 17:03:56 / Claus Gittinger"
 ! !
 !MenuEditor class methodsFor:'defaults'!
 resourceType
 ! !
 !MenuEditor class methodsFor:'help specs'!
 helpSpec
-^super helpSpec addPairsFrom:(self localHelpSpecStrings)
+^super helpSpec addPairsFrom: #(
-!
-localHelpSpecStrings
-"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>
-^ #(
 #editCut
 'Cut Item'
 #editCopy
 #fileSaveAs
 'Open a dialog to save the menu spec (and the help spec, if modified).'
 #fileShowMenuSpec
 'Opens a Workspace showing the current menu spec.'
+#forceMenuIndicator
+'Always show a menu indicator in horizontal menu (little down-arrow).'
 #generateAspectMethods
 'Generates aspect methods for defined aspect selectors of the menu.'
 #hideMenuOnActivated
 #selectorFilter
 'In the list below, only matching selectors are shown'
 )
-"Modified: / 03-08-2011 / 10:17:05 / cg"
+"Modified: / 09-08-2018 / 17:09:02 / Claus Gittinger"
 ! !
 !MenuEditor class methodsFor:'image specs'!
 browseActionImage
 newLinkedMenuItem submenuChannel:subSelector.
 newLinkedMenuItem menuItem nameKey:(oldMenuItem menuItem nameKey).
 newLinkedMenuItem menuItem label:oldMenuItem menuItem label.
 newLinkedMenuItem menuItem rawLabel:oldMenuItem menuItem rawLabel.
 newLinkedMenuItem menuItem translateLabel:(oldMenuItem menuItem translateLabel).
+newLinkedMenuItem menuItem hasMenuIndicator:(oldMenuItem menuItem hasMenuIndicator).
 index := oldMenuItem parent identityIndexOf:oldMenuItem.
 oldMenuItem parent at:index put:newLinkedMenuItem.
 self selectedItem:newLinkedMenuItem.
+"Modified: / 09-08-2018 / 17:09:40 / Claus Gittinger"
 !
 doMoveDown
 "move selected item down"
 children
 "optimize access; do not ask the model for unspecified children
 "
 ^ children
+!
+hasMenuIndicator:aBoolean
+menuItem hasMenuIndicator:aBoolean
+"Created: / 09-08-2018 / 17:03:06 / Claus Gittinger"
 !
 menuItem
 "returns self as a MenuItem
 "
 UIPainter new openOnClass:MenuEditor::RegularMenuItem andSelector:#basicsEditSpec
 "
 <resource: #canvas>
 ^
 #(FullSpec
-	name: basicsEditSpec
+name: basicsEditSpec
-	window:
+uuid: 'd6768576-9be5-11e8-8c6e-b8f6b1108e05'
-(WindowSpec
+window:
-	  label: 'basicsEditSpec'
+(WindowSpec
-	  name: 'basicsEditSpec'
+label: 'basicsEditSpec'
-	  min: (Point 10 10)
+name: 'basicsEditSpec'
-	  bounds: (Rectangle 0 0 340 340)
+uuid: 'd6768940-9be5-11e8-8c6e-b8f6b1108e05'
-	)
+min: (Point 10 10)
-	component:
+bounds: (Rectangle 0 0 340 340)
-(SpecCollection
+)
-	  collection: (
+component:
-	   (LabelSpec
+(SpecCollection
-	      label: 'Name Key:'
+collection: (
-	      name: 'nameKeyLabel'
+(LabelSpec
-	      layout: (AlignmentOrigin 107 0 25 0 1 0.5)
+label: 'Name Key:'
-	      activeHelpKey: basicsKey
+name: 'nameKeyLabel'
-	      visibilityChannel: notDelayedMenu
+layout: (AlignmentOrigin 107 0 25 0 1 0.5)
-	      translateLabel: true
+activeHelpKey: basicsKey
-	      resizeForLabel: true
+uuid: 'd676e930-9be5-11e8-8c6e-b8f6b1108e05'
-	      adjust: right
+visibilityChannel: notDelayedMenu
-	    )
+translateLabel: true
-	   (InputFieldSpec
+resizeForLabel: true
-	      name: 'nameKeyField'
+adjust: right
-	      layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
+)
-	      activeHelpKey: basicsKey
+(InputFieldSpec
-	      visibilityChannel: notDelayedMenu
+name: 'nameKeyField'
-	      tabable: true
+layout: (LayoutFrame 110 0 15 0 -5 1.0 37 0)
-	      model: nameKey
+activeHelpKey: basicsKey
-	      group: inputGroup
+uuid: 'd676ec64-9be5-11e8-8c6e-b8f6b1108e05'
-	      type: symbolOrNil
+visibilityChannel: notDelayedMenu
-	      immediateAccept: false
+tabable: true
-	      acceptOnLeave: false
+model: nameKey
-	      acceptOnReturn: true
+group: inputGroup
-	      acceptOnTab: true
+type: symbolOrNil
-	      acceptOnLostFocus: false
+immediateAccept: false
-	      acceptChannel: acceptChannel
+acceptOnLeave: false
-	      modifiedChannel: modifiedChannel
+acceptOnReturn: true
-	      acceptOnPointerLeave: false
+acceptOnTab: true
-	    )
+acceptOnLostFocus: false
-	   (LabelSpec
+acceptChannel: acceptChannel
-	      label: 'Label:'
+modifiedChannel: modifiedChannel
-	      name: 'labelLabel'
+acceptOnPointerLeave: false
-	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+)
-	      activeHelpKey: basicsLabel
+(LabelSpec
-	      visibilityChannel: notDelayedMenu
+label: 'Label:'
-	      translateLabel: true
+name: 'labelLabel'
-	      resizeForLabel: true
+layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-	      adjust: right
+activeHelpKey: basicsLabel
-	    )
+uuid: 'd676effc-9be5-11e8-8c6e-b8f6b1108e05'
-	   (InputFieldSpec
+visibilityChannel: notDelayedMenu
-	      name: 'labelField'
+translateLabel: true
-	      layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
+resizeForLabel: true
-	      activeHelpKey: basicsLabel
+adjust: right
-	      visibilityChannel: notDelayedMenu
+)
-	      tabable: true
+(InputFieldSpec
-	      model: rawLabel
+name: 'labelField'
-	      group: inputGroup
+layout: (LayoutFrame 110 0 40 0 -5 1.0 62 0)
-	      immediateAccept: false
+activeHelpKey: basicsLabel
-	      acceptOnReturn: true
+uuid: 'd676f150-9be5-11e8-8c6e-b8f6b1108e05'
-	      acceptOnTab: true
+visibilityChannel: notDelayedMenu
-	      acceptOnLostFocus: false
+tabable: true
-	      acceptChannel: acceptChannel
+model: rawLabel
-	      modifiedChannel: modifiedChannel
+group: inputGroup
-	      acceptOnPointerLeave: false
+immediateAccept: false
-	    )
+acceptOnReturn: true
-	   (CheckBoxSpec
+acceptOnTab: true
-	      label: 'Translate Label'
+acceptOnLostFocus: false
-	      name: 'translateLabelCheckBox'
+acceptChannel: acceptChannel
-	      layout: (Point 20 213)
+modifiedChannel: modifiedChannel
-	      activeHelpKey: basicsTranslateLabel
+acceptOnPointerLeave: false
-	      visibilityChannel: notDelayedMenu
+)
-	      tabable: true
+(VerticalPanelViewSpec
-	      model: translateLabel
+name: 'VerticalPanel1'
-	      translateLabel: true
+layout: (LayoutFrame 6 0 188 0 340 0 323 0)
-	    )
+uuid: 'd676f326-9be5-11e8-8c6e-b8f6b1108e05'
-	   (CheckBoxSpec
+horizontalLayout: left
-	      label: 'Is Button'
+verticalLayout: top
-	      name: 'isButtonCheckBox'
+horizontalSpace: 3
-	      layout: (Point 20 238)
+verticalSpace: 3
-	      activeHelpKey: basicsIsButton
+component:
-	      visibilityChannel: notDelayedMenu
+(SpecCollection
-	      tabable: true
+collection: (
-	      model: isButton
+(CheckBoxSpec
-	      translateLabel: true
+label: 'Translate Label'
-	    )
+name: 'translateLabelCheckBox'
-	   (CheckBoxSpec
+activeHelpKey: basicsTranslateLabel
-	      label: 'Horizontal Layout'
+uuid: 'd676f54c-9be5-11e8-8c6e-b8f6b1108e05'
-	      name: 'horizontalLayout'
+visibilityChannel: notDelayedMenu
-	      layout: (Point 20 263)
+tabable: true
-	      activeHelpKey: horizontalLayout
+model: translateLabel
-	      tabable: true
+translateLabel: true
-	      model: horizontalLayout
+extent: (Point 149 30)
-	      translateLabel: true
+)
-	    )
+(CheckBoxSpec
-	   )
+label: 'Is Button'
+name: 'isButtonCheckBox'
-	)
+activeHelpKey: basicsIsButton
-)
+uuid: 'd676f786-9be5-11e8-8c6e-b8f6b1108e05'
+visibilityChannel: notDelayedMenu
+tabable: true
+model: isButton
+translateLabel: true
+extent: (Point 100 30)
+)
+(CheckBoxSpec
+label: 'Horizontal Layout'
+name: 'horizontalLayout'
+activeHelpKey: horizontalLayout
+uuid: 'd676f8d0-9be5-11e8-8c6e-b8f6b1108e05'
+tabable: true
+model: horizontalLayout
+translateLabel: true
+extent: (Point 163 30)
+)
+(CheckBoxSpec
+label: 'Force Menu Indicator'
+name: 'CheckBox1'
+activeHelpKey: forceMenuIndicator
+uuid: 'd676fa06-9be5-11e8-8c6e-b8f6b1108e05'
+tabable: true
+model: hasMenuIndicator
+translateLabel: true
+extent: (Point 163 30)
+)
+)
+)
+)
+)
+)
+)
 ! !
 !MenuEditor::RegularMenuItem methodsFor:'accessing'!
 argument:aValue

changeset 3587	438cc8200c87
parent 3585	3b557739ccb5
child 3589	e76569140275