hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:9c9600432a09
+:7894e542c64b
 Object subclass:#Item
 	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
 		accessCharacterPos retriever icon iconAndLabel submenuChannel
 		startGroup argument translateLabel isButton isVisible choice
-		choiceValue auxValue'
+		choiceValue auxValue hideMenuOnActivated'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuEditor
 !
 startGroup
 retriever
 iconAndLabel
 icon
 isVisible
+hideMenuOnActivated
 auxValue
 )
 "Modified: / 14.8.1998 / 14:46:36 / cg"
 ! !
 #fileSave
 'Saves the menu spec (and the help spec, if modified).'
 #fileSaveAs
 'Opens a dialog to save the menu spec (and the help spec, if modified).'
+#hideMenuOnActivated
+'Switch on/off hide of the submenu after activation'
 #imageImageAndLabel
 'Toggles display of both image and textual label.'
 #imageImageEditor
 #(#WindowSpec
 #label: 'Basics Item'
 #name: 'Basics Item'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 273 266 540 585)
+#bounds: #(#Rectangle 12 22 279 341)
 )
 #component:
 #(#SpecCollection
 #collection: #(
 #(#LabelSpec
 #activeHelpKey: #basicsKey
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'nameKeyField'
 #layout: #(#LayoutFrame 110 0 16 0 -5 1.0 38 0)
 #activeHelpKey: #basicsKey
 #tabable: true
 #model: #nameKey
 #activeHelpKey: #basicsLabel
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'labelField'
 #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
 #activeHelpKey: #basicsLabel
 #tabable: true
 #model: #label
 #activeHelpKey: #basicsAction
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'valueField'
 #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
 #activeHelpKey: #basicsAction
 #tabable: true
 #model: #value
 #activeHelpKey: #basicsArgument
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'argumentField'
 #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
 #activeHelpKey: #basicsArgument
 #tabable: true
 #model: #argument
 #activeHelpKey: #basicsIndication
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'indicationField'
 #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
 #activeHelpKey: #basicsIndication
 #enableChannel: #indicationEnabled
 #tabable: true
 #translateLabel: true
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'choiceField'
 #layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
 #activeHelpKey: #basicsChoice
 #enableChannel: #choiceEnabled
 #tabable: true
 #translateLabel: true
 #resizeForLabel: true
 #adjust: #right
 )
 #(#InputFieldSpec
+#attributes:
+#(#tabable
+true
+)
 #name: 'choiceValueField'
 #layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
 #activeHelpKey: #basicsChoiceValue
 #enableChannel: #choiceValueEnabled
 #tabable: true
 #acceptChannel: #acceptChannel
 #modifiedChannel: #modifiedChannel
 #acceptOnPointerLeave: false
 )
 #(#CheckBoxSpec
+#attributes:
+#(#tabable
+true
+)
 #label: 'Translate Label'
 #name: 'translateLabelCheckBox'
 #layout: #(#Point 20 230)
 #activeHelpKey: #basicsTranslateLabel
 #tabable: true
 #model: #translateLabel
 )
 #(#CheckBoxSpec
+#attributes:
+#(#tabable
+true
+)
 #label: 'Is Button'
 #name: 'isButtonCheckBox'
-#layout: #(#Point 20 259)
+#layout: #(#Point 20 256)
 #activeHelpKey: #basicsIsButton
 #tabable: true
 #model: #isButton
+)
+#(#CheckBoxSpec
+#attributes:
+#(#tabable
+true
+)
+#label: 'Hide Menu after Activation'
+#name: 'hideMenuOnActivated'
+#layout: #(#Point 20 281)
+#activeHelpKey: #hideMenuOnActivated
+#tabable: true
+#model: #hideMenuOnActivated
 )
 )
 )
 )
 [
 name  := (aspects at:#seperatorSelection) selectionIndex.
 label := (self class separatorSlices at:name) last.
 ].
 isVisible := (aspects at:#isVisible) value.
+hideMenuOnActivated := (aspects at:#hideMenuOnActivated) value.
 "Modified: / 14.8.1998 / 15:36:38 / cg"
 !
 buildFromMenuItem:anItem
 indication := nil
 ].
 (choice := anItem choice) isSymbol ifFalse:[
 choice := nil
 ].
-choiceValue := anItem choiceValue.
+choiceValue         := anItem choiceValue.
+nameKey             := anItem nameKey.
-nameKey            := anItem nameKey.
+shortcutKey         := anItem shortcutKeyCharacter.
-shortcutKey        := anItem shortcutKeyCharacter.
+startGroup          := anItem startGroup.
-startGroup         := anItem startGroup.
+accessCharacterPos  := anItem accessCharacterPosition.
-accessCharacterPos := anItem accessCharacterPosition.
+argument            := anItem argument.
-argument           := anItem argument.
+submenuChannel      := anItem submenuChannel.
-submenuChannel     := anItem submenuChannel.
+translateLabel      := anItem translateLabel.
-translateLabel     := anItem translateLabel.
+isButton            := anItem isButton.
-isButton           := anItem isButton.
+isVisible           := anItem isVisible.
-isVisible          := anItem isVisible.
+hideMenuOnActivated := anItem hideMenuOnActivated.
-auxValue           := anItem auxValue.
+auxValue            := anItem auxValue.
 (((rtv := anItem adornment) notNil)
 and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever])
 ifTrue:
 [
 |item rcv|
 item := MenuItem labeled:label.
 item isVisible:isVisible.
+item hideMenuOnActivated:hideMenuOnActivated.
 self isSeparator ifFalse:[
 item activeHelpKey:activeHelpKey.
 item enabled:enabled.
 item accessCharacterPosition:accessCharacterPos.
 value:(argument isSymbol
 ifTrue: ['#', argument]
 ifFalse:[argument]).
 ].
 (aspects at:#isVisible) value:isVisible.
+(aspects at:#hideMenuOnActivated) value:hideMenuOnActivated.
 "Modified: / 14.8.1998 / 15:37:29 / cg"
 ! !
 !MenuEditor::Item methodsFor:'queries'!

changeset 1321	7894e542c64b
parent 1301	dc5c4a8e6e6e
child 1322	fbc9a32078b5