hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:116bf6f0ff62
+:85ab98a850c8
 #basicsIndication
 'Aspect for boolean holder, block, or method, specifying the indication state (CheckToggle behavior).'
 #basicsIsButton
-'Enable/disable button-like behavior.'
+'Button-like look and behavior.'
 #basicsKey
 'Internal key of the item (optional, for programmed accesses).'
 #basicsLabel
 #detailsStartGroup
 'Specify start of a right-aligned item group.'
 #detailsVisibility
-'Aspect or binding providing a boolean value holder for the visibility-state of the menu item.'
+'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.'
 #fileLoad
 'Open a dialog to select and load a menu spec from a class.'
 #fileNew
 #keepLinkedMenu
 'Keep the linked menu after activation (do not destroy).'
 #showBusyCursorWhilePerforming
 'If on, a busy cursor is shown while the items action is performing.'
+#sendToOriginator
+'Send action-Message to widget (instead of application).'
 #settingsRedefineAspectMethods
 'Toggles the permission to overwrite existing aspect methods.'
 #triggerOnDown
 "boolean holder, true if the current selected item accepts a delayed menu
 "
 ^ builder booleanValueAspectFor:#canCreateDelayedMenuChannel
 !
+hasItemValue
+"boolean holder, true if any item is selected
+"
+^ BlockValue
+with:[:holder | holder value size > 0]
+argument:(self aspectFor:#itemValue)
+!
 hasSelectionChannel
 "boolean holder, true if any item is selected
 "
 ^ builder booleanValueAspectFor:#hasSelectionChannel
 !
 <resource: #canvas>
 ^
 #(#FullSpec
-	#name: #detailsEditSpec
+#name: #detailsEditSpec
-	#window:
+#window:
 #(#WindowSpec
-	  #label: 'Details Edit'
+#label: 'Details Edit'
-	  #name: 'Details Edit'
+#name: 'Details Edit'
-	  #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	  #max: #(#Point 1280 1024)
+#max: #(#Point 1280 1024)
-	  #bounds: #(#Rectangle 43 153 303 398)
+#bounds: #(#Rectangle 43 153 303 398)
-	)
+)
-	#component:
+#component:
 #(#SpecCollection
-	  #collection: #(
+#collection: #(
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Accelerator:'
+#label: 'Accelerator:'
-	      #name: 'shortcutKeyLabel'
+#name: 'shortcutKeyLabel'
-	      #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-	      #activeHelpKey: #detailsAccelerator
+#activeHelpKey: #detailsAccelerator
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'shortcutKeyField'
+#name: 'shortcutKeyField'
-	      #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+#layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-	      #activeHelpKey: #detailsAccelerator
+#activeHelpKey: #detailsAccelerator
-	      #tabable: true
+#tabable: true
-	      #model: #shortcutKeyCharacter
+#model: #shortcutKeyCharacter
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #symbolOrNil
+#type: #symbolOrNil
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Enabled:'
+#label: 'Enabled:'
-	      #name: 'enabledLabel'
+#name: 'enabledLabel'
-	      #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-	      #activeHelpKey: #detailsEnabled
+#activeHelpKey: #detailsEnabled
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'enabledField'
+#name: 'enabledField'
-	      #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+#layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-	      #activeHelpKey: #detailsEnabled
+#activeHelpKey: #detailsEnabled
-	      #tabable: true
+#tabable: true
-	      #model: #enabled
+#model: #enabled
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #symbolOrNil
+#type: #symbolOrBooleanOrNil
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Visibility:'
+#label: 'Visibility:'
-	      #name: 'visibilityLabel'
+#name: 'visibilityLabel'
-	      #layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 76 0 1 0.5)
-	      #activeHelpKey: #detailsVisibility
+#activeHelpKey: #detailsVisibility
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'isVisibleInputField'
+#name: 'isVisibleInputField'
-	      #layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
+#layout: #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
-	      #activeHelpKey: #detailsVisibility
+#activeHelpKey: #detailsVisibility
-	      #tabable: true
+#tabable: true
-	      #model: #isVisible
+#model: #isVisible
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #symbolOrNil
+#type: #symbolOrBooleanOrNil
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Aux Value'
+#label: 'Aux Value'
-	      #name: 'auxLabel'
+#name: 'auxLabel'
-	      #layout: #(#AlignmentOrigin 107 0 101 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 101 0 1 0.5)
-	      #activeHelpKey: #detailsAuxValue
+#activeHelpKey: #detailsAuxValue
-	      #translateLabel: true
+#translateLabel: true
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'auxInputField'
+#name: 'auxInputField'
-	      #layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
+#layout: #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
-	      #activeHelpKey: #detailsAuxValue
+#activeHelpKey: #detailsAuxValue
-	      #tabable: true
+#tabable: true
-	      #model: #auxValue
+#model: #auxValue
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #smalltalkObject
+#type: #smalltalkObject
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Start Group:'
+#label: 'Start Group:'
-	      #name: 'StartGroupLabel'
+#name: 'StartGroupLabel'
-	      #layout: #(#AlignmentOrigin 107 0 139 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 139 0 1 0.5)
-	      #activeHelpKey: #detailsStartGroup
+#activeHelpKey: #detailsStartGroup
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#PopUpListSpec
+#(#PopUpListSpec
-	      #label: 'left'
+#label: 'left'
-	      #name: 'StartGroupPopUp'
+#name: 'StartGroupPopUp'
-	      #layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
+#layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
-	      #activeHelpKey: #detailsStartGroup
+#activeHelpKey: #detailsStartGroup
-	      #tabable: true
+#tabable: true
-	      #model: #startGroup
+#model: #startGroup
-	      #menu:
+#menu:
-	     #(#left
+#(#left
-		#right
+#right
-	      )
+)
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Access Character Position:'
+#label: 'Access Character Position:'
-	      #name: 'accessCharLabel'
+#name: 'accessCharLabel'
-	      #layout: #(#AlignmentOrigin 217 0 170 0 1 0.5)
+#layout: #(#AlignmentOrigin 217 0 170 0 1 0.5)
-	      #activeHelpKey: #detailsAccessCharaterPosition
+#activeHelpKey: #detailsAccessCharaterPosition
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'accessCharField'
+#name: 'accessCharField'
-	      #layout: #(#LayoutFrame 220 0 159 0 -5 1.0 181 0)
+#layout: #(#LayoutFrame 220 0 159 0 -5 1.0 181 0)
-	      #activeHelpKey: #detailsAccessCharaterPosition
+#activeHelpKey: #detailsAccessCharaterPosition
-	      #tabable: true
+#tabable: true
-	      #model: #accessCharacterPosition
+#model: #accessCharacterPosition
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #numberOrNil
+#type: #numberOrNil
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Font:'
+#label: 'Font:'
-	      #name: 'fontLabel'
+#name: 'fontLabel'
-	      #layout: #(#AlignmentOrigin 75 0 219 0 1 0.5)
+#layout: #(#AlignmentOrigin 75 0 219 0 1 0.5)
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#FontMenuSpec
+#(#FontMenuSpec
-	      #attributes:
+#attributes:
-	     #(#tabable
+#(#tabable
-		true
+true
-	      )
+)
-	      #name: 'fontMenu'
+#name: 'fontMenu'
-	      #layout: #(#LayoutFrame 78 0 208 0 -5 1.0 230 0)
+#layout: #(#LayoutFrame 78 0 208 0 -5 1.0 230 0)
-	      #activeHelpKey: #fontMenu
+#activeHelpKey: #fontMenu
-	      #model: #font
+#model: #font
-	    )
+)
-	   )
+)
-	)
+)
 )
 ! !
 !MenuEditor::Item class methodsFor:'testing'!
 #(#WindowSpec
 #label: 'basicsEditSpec'
 #name: 'basicsEditSpec'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 42 67 382 407)
+#bounds: #(#Rectangle 314 340 654 680)
 )
 #component:
 #(#SpecCollection
 #collection: #(
 #(#LabelSpec
 #tabable: true
 #model: #itemValue
 #group: #inputGroup
 #type: #symbolOrNil
 #immediateAccept: false
+#acceptOnLeave: true
 #acceptOnReturn: true
 #acceptOnTab: true
-#acceptOnLostFocus: false
+#acceptOnLostFocus: true
 #acceptChannel: #acceptChannel
 #modifiedChannel: #modifiedChannel
-#acceptOnPointerLeave: false
+#acceptOnPointerLeave: true
 )
 #(#LabelSpec
 #label: 'Argument:'
 #name: 'argumentLabel'
 #layout: #(#AlignmentOrigin 107 0 107 0 1 0.5)
 )
 #(#CheckBoxSpec
 #label: 'Send To Originating Widget'
 #name: 'sendToOriginator'
 #layout: #(#AlignmentOrigin 7 0 313 0 0 0)
-#activeHelpKey: #showBusyCursorWhilePerforming
+#activeHelpKey: #sendToOriginator
+#enableChannel: #hasItemValue
 #tabable: true
 #model: #sendToOriginator
 #translateLabel: true
 )
 )
 #visibilityChannel: #notDelayedMenu
 #tabable: true
 #model: #isButton
 )
 #(#CheckBoxSpec
-#label: 'Has Horizontal Layout'
+#label: 'Horizontal Layout'
 #name: 'horizontalLayout'
 #layout: #(#Point 20 263)
 #activeHelpKey: #horizontalLayout
 #tabable: true
 #model: #horizontalLayout
 )
 #(#CheckBoxSpec
-#label: 'Do not destroy linked Menu'
+#label: 'Do not Destroy Linked Menu'
 #name: 'keepLinkedMenu'
 #layout: #(#Point 20 288)
 #activeHelpKey: #keepLinkedMenu
 #tabable: true
 #model: #keepLinkedMenu
 #visibilityChannel: #notDelayedMenu
 #tabable: true
 #model: #isButton
 )
 #(#CheckBoxSpec
-#label: 'Has Horizontal Layout'
+#label: 'Horizontal Layout'
 #name: 'horizontalLayout'
 #layout: #(#Point 20 263)
 #activeHelpKey: #horizontalLayout
 #tabable: true
 #model: #horizontalLayout
 <resource: #canvas>
 ^
 #(#FullSpec
-	#name: #basicsEditSpec
+#name: #basicsEditSpec
-	#window:
+#window:
 #(#WindowSpec
-	  #label: 'basicsEditSpec'
+#label: 'basicsEditSpec'
-	  #name: 'basicsEditSpec'
+#name: 'basicsEditSpec'
-	  #min: #(#Point 10 10)
+#min: #(#Point 10 10)
-	  #max: #(#Point 1160 870)
+#max: #(#Point 1160 870)
-	  #bounds: #(#Rectangle 160 398 420 643)
+#bounds: #(#Rectangle 160 398 420 643)
-	)
+)
-	#component:
+#component:
 #(#SpecCollection
-	  #collection: #(
+#collection: #(
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Separator:'
+#label: 'Separator:'
-	      #name: 'separatorLabel'
+#name: 'separatorLabel'
-	      #layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 26 0 1 0.5)
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#ComboListSpec
+#(#ComboListSpec
-	      #name: 'seperatorList'
+#name: 'seperatorList'
-	      #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
+#layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
-	      #activeHelpKey: #basicsSeparatorType
+#activeHelpKey: #basicsSeparatorType
-	      #tabable: true
+#tabable: true
-	      #model: #seperatorSelection
+#model: #seperatorSelection
-	      #comboList: #seperatorList
+#comboList: #seperatorList
-	      #useIndex: true
+#useIndex: true
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Visibility:'
+#label: 'Visibility:'
-	      #name: 'visibilityLabel'
+#name: 'visibilityLabel'
-	      #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#InputFieldSpec
+#(#InputFieldSpec
-	      #name: 'visibilityInputField'
+#name: 'visibilityInputField'
-	      #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
+#layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
-	      #activeHelpKey: #detailsVisibility
+#activeHelpKey: #detailsVisibility
-	      #tabable: true
+#tabable: true
-	      #model: #isVisible
+#model: #isVisible
-	      #group: #inputGroup
+#group: #inputGroup
-	      #type: #symbolOrNil
+#type: #symbolOrBooleanOrNil
-	      #immediateAccept: false
+#immediateAccept: false
-	      #acceptOnReturn: true
+#acceptOnReturn: true
-	      #acceptOnTab: true
+#acceptOnTab: true
-	      #acceptChannel: #acceptChannel
+#acceptChannel: #acceptChannel
-	      #modifiedChannel: #modifiedChannel
+#modifiedChannel: #modifiedChannel
-	      #acceptOnPointerLeave: false
+#acceptOnPointerLeave: false
-	    )
+)
-	   #(#LabelSpec
+#(#LabelSpec
-	      #label: 'Start Group:'
+#label: 'Start Group:'
-	      #name: 'startGroupLabel'
+#name: 'startGroupLabel'
-	      #layout: #(#AlignmentOrigin 107 0 88 0 1 0.5)
+#layout: #(#AlignmentOrigin 107 0 88 0 1 0.5)
-	      #resizeForLabel: true
+#resizeForLabel: true
-	      #adjust: #right
+#adjust: #right
-	    )
+)
-	   #(#PopUpListSpec
+#(#PopUpListSpec
-	      #label: 'left'
+#label: 'left'
-	      #name: 'startGroupPopUp'
+#name: 'startGroupPopUp'
-	      #layout: #(#LayoutFrame 110 0 77 0 -5 1.0 99 0)
+#layout: #(#LayoutFrame 110 0 77 0 -5 1.0 99 0)
-	      #activeHelpKey: #detailsStartGroup
+#activeHelpKey: #detailsStartGroup
-	      #tabable: true
+#tabable: true
-	      #model: #startGroup
+#model: #startGroup
-	      #menu:
+#menu:
-	     #(#left
+#(#left
-		#right
+#right
-	      )
+)
-	    )
+)
-	   )
+)
-	)
+)
 )
 ! !
 !MenuEditor::SeparatorItem methodsFor:'accessing'!

changeset 1636	85ab98a850c8
parent 1634	1dd4cd7ea43b
child 1641	7e63a11f3333