hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:c6408190dc6d
+:1aecad8bf33a
 !
 Object subclass:#Item
 	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
 		accessCharacterPos retriever icon iconAndLabel submenuChannel
-		startGroup argument translateLabel isButton isVisible'
+		startGroup argument translateLabel isButton isVisible choice
+		choiceValue'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:MenuEditor
 !
 submenuChannel
 enabled
 value
 nameKey
 indication
+choice
+choiceValue
 translateLabel
 isButton
 shortcutKey
 startGroup
 retriever
 iconAndLabel
 icon
 isVisible
 )
+"Modified: / 14.8.1998 / 14:46:36 / cg"
 ! !
 !MenuEditor class methodsFor:'help specs'!
 helpSpec
 #(#FullSpec
 #window:
 #(#WindowSpec
 #name: 'Basics Item'
-#layout: #(#LayoutFrame 473 0 301 0 739 0 619 0)
+#layout: #(#LayoutFrame 216 0 173 0 482 0 491 0)
 #label: 'Basics Item'
 #min: #(#Point 10 10)
 #max: #(#Point 1160 870)
-#bounds: #(#Rectangle 473 301 740 620)
+#bounds: #(#Rectangle 216 173 483 492)
 #usePreferredExtent: false
 )
 #component:
 #(#SpecCollection
 #collection:
 #(#InputFieldSpec
 #name: 'nameKeyField'
 #layout: #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
 #tabable: true
 #model: #nameKey
+#group: #inputGroup
 #type: #symbolOrNil
 #acceptOnReturn: false
 #acceptOnTab: false
-#group: #inputGroup
 )
 #(#LabelSpec
 #name: 'labelLabel'
 #layout: #(#AlignmentOrigin 107 0 51 0 1 0.5)
 #label: 'Label:'
 #name: 'labelField'
 #layout: #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
 #activeHelpKey: #basicsLabel
 #tabable: true
 #model: #label
+#group: #inputGroup
 #acceptOnReturn: false
 #acceptOnTab: false
-#group: #inputGroup
 )
 #(#LabelSpec
 #name: 'valueLabel'
 #layout: #(#AlignmentOrigin 107 0 90 0 1 0.5)
 #label: 'Action:'
 #name: 'valueField'
 #layout: #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
 #activeHelpKey: #basicsAction
 #tabable: true
 #model: #value
+#group: #inputGroup
 #type: #symbolOrNil
 #acceptOnReturn: false
 #acceptOnTab: false
-#group: #inputGroup
 )
 #(#LabelSpec
 #name: 'argumentLabel'
 #layout: #(#AlignmentOrigin 107 0 115 0 1 0.5)
 #label: 'Argument:'
 #name: 'argumentField'
 #layout: #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
 #activeHelpKey: #basicsArgument
 #tabable: true
 #model: #argument
+#group: #inputGroup
 #type: #string
 #acceptOnReturn: false
 #acceptOnTab: false
-#group: #inputGroup
 )
 #(#LabelSpec
 #name: 'indicationLabel'
 #layout: #(#AlignmentOrigin 107 0 155 0 1 0.5)
 #label: 'Indication:'
 )
 #(#InputFieldSpec
 #name: 'indicationField'
 #layout: #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
 #activeHelpKey: #basicsIndication
+#enableChannel: #indicationEnabled
 #tabable: true
 #model: #indication
+#group: #inputGroup
 #type: #symbolOrNil
 #acceptOnReturn: false
 #acceptOnTab: false
-#group: #inputGroup
 )
 #(#CheckBoxSpec
 #name: 'translateLabelCheckBox'
-#layout: #(#Point 20 190)
+#layout: #(#Point 20 230)
 #activeHelpKey: #basicsTranslateLabel
 #tabable: true
 #model: #translateLabel
 #label: 'Translate Label'
 )
 #(#CheckBoxSpec
 #name: 'isButtonCheckBox'
-#layout: #(#Point 20 219)
+#layout: #(#Point 20 259)
 #activeHelpKey: #basicsIsButton
 #tabable: true
 #model: #isButton
 #label: 'Is Button'
 )
+#(#LabelSpec
+#name: 'choiceLabel'
+#layout: #(#AlignmentOrigin 107 0 180 0 1 0.5)
+#label: 'Choice:'
+#translateLabel: true
+#adjust: #right
+#resizeForLabel: true
+)
+#(#InputFieldSpec
+#name: 'choiceField'
+#layout: #(#LayoutFrame 110 0 169 0 -5 1.0 191 0)
+#activeHelpKey: #basicsIndication
+#enableChannel: #choiceEnabled
+#tabable: true
+#model: #choice
+#group: #inputGroup
+#type: #symbolOrNil
+#acceptOnReturn: false
+#acceptOnTab: false
+)
+#(#LabelSpec
+#name: 'choiceValueLabel'
+#layout: #(#AlignmentOrigin 107 0 205 0 1 0.5)
+#label: 'Value:'
+#translateLabel: true
+#adjust: #right
+#resizeForLabel: true
+)
+#(#InputFieldSpec
+#name: 'choiceValueField'
+#layout: #(#LayoutFrame 110 0 194 0 -5 1.0 216 0)
+#activeHelpKey: #basicsIndication
+#enableChannel: #choiceValueEnabled
+#tabable: true
+#model: #choiceValue
+#group: #inputGroup
+#type: #smalltalkObject
+#acceptOnReturn: true
+#acceptOnTab: true
+#acceptOnLeave: true
+#acceptOnLostFocus: true
+#immediateAccept: false
+)
 )
 )
 )
-"Modified: / 31.7.1998 / 01:18:03 / cg"
+"Modified: / 14.8.1998 / 15:43:35 / cg"
 !
 basicsLinkSpec
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 |node item slc sel old|
 aspects do: [:holder| holder removeDependent:self].
 (node := self treeView selectedNode) notNil ifTrue:[
-aspects do:[:anAspect| anAspect value:nil ].
+aspects do:[:anAspect|
+anAspect isBlock ifFalse:[anAspect value:nil]
+].
 item := node contents.
 item toAspects:aspects.
 item isSeparator ifFalse:[
 node parent isNil ifFalse:[
 self tabSelection:0.
 ]
 ].
 self updateChannels.
 aspects do: [:holder| holder addDependent:self].
+"Modified: / 14.8.1998 / 14:52:32 / cg"
 !
 tabSelection: aSelection
 "put the section aSelection into the note book"
 self isHelpToolSelected ifTrue:[
 self helpTool helpKey:(self helpKey).
 helpCanvas raise.
 ] ifFalse:[
-aspects do: [:holder| holder release].
+aspects do: [:holder| holder removeDependent:self].
 specCanvas client:self spec:(self class perform:(slices at:tabSelection) last) builder:builder.
 aspects do: [:holder| holder addDependent:self].
 self updateFonts.
 specCanvas raise.
 ]
+"Modified: / 14.8.1998 / 15:07:06 / cg"
 ! !
 !MenuEditor methodsFor:'startup / release'!
 initialize
 aspects at:#seperatorSelection put:(holder := SelectionInList new).
 holder list: Item separatorList.
 holder addDependent:self.
-"Modified: / 20.6.1998 / 14:53:26 / cg"
+aspects at:#indicationEnabled  put:(BlockValue
+with:[:a | a size == 0]
+argument:(aspects at:#choice)).
+aspects at:#choiceEnabled      put:(BlockValue
+with:[:a | a size == 0]
+argument:(aspects at:#indication)).
+aspects at:#choiceValueEnabled put:(BlockValue
+with:[:a | a size > 0]
+argument:(aspects at:#choice)).
+"Modified: / 14.8.1998 / 15:07:58 / cg"
 !
 openModalOnMenu: aMenu
 "build a tree from aMenu and open it modal"
 enabled            := (aspects at:#enabled) value.
 value              := (aspects at:#value) value.
 nameKey            := (aspects at:#nameKey) value.
 indication         := (aspects at:#indication) value.
+choice             := (aspects at:#choice) value.
+choiceValue        := (aspects at:#choiceValue) value.
 shortcutKey        := (aspects at:#shortcutKey) value.
 startGroup         := (aspects at:#startGroup) value.
 accessCharacterPos := (aspects at:#accessCharacterPos) value.
 argument           := (aspects at:#argument) value.
 translateLabel     := (aspects at:#translateLabel) value.
 name  := (aspects at:#seperatorSelection) selectionIndex.
 label := (self class separatorSlices at:name) last.
 ].
 isVisible := (aspects at:#isVisible) value.
-"Modified: / 6.6.1998 / 17:20:59 / cg"
+"Modified: / 14.8.1998 / 15:36:38 / cg"
 !
 buildFromMenuItem:anItem
 "read the attributes of anItem into my values"
 activeHelpKey := anItem activeHelpKey.
 (enabled := anItem enabled) isSymbol ifFalse:[
 enabled := nil
 ].
 (value := anItem value) isSymbol ifFalse:[
 value := nil.
 ].
 (indication := anItem indication) isSymbol ifFalse:[
 indication := nil
 ].
+(choice := anItem choice) isSymbol ifFalse:[
+choice := nil
+].
+choiceValue := anItem choiceValue.
 nameKey            := anItem nameKey.
 shortcutKey        := anItem shortcutKeyCharacter.
 startGroup         := anItem startGroup.
 accessCharacterPos := anItem accessCharacterPosition.
 icon      := rtv selector.
 (iconAndLabel := rtv labelText notNil) ifTrue:[
 label := rtv labelText.
 ]
 ]
+"Modified: / 14.8.1998 / 15:37:20 / cg"
 ! !
 !MenuEditor::Item methodsFor:'conversion'!
 asMenuItem
 item nameKey:nameKey.
 item shortcutKeyCharacter:shortcutKey.
 item startGroup:startGroup.
 item value:value.
 item indication:indication.
+item choice:choice.
+item choiceValue:choiceValue.
 item translateLabel: translateLabel.
 item isButton: isButton.
 icon notNil ifTrue:[
 rcv := ResourceRetriever new.
 ].
 item labelImage:rcv
 ]
 ].
 ^item
+"Modified: / 14.8.1998 / 15:36:35 / cg"
 !
 toAspects:aspects
 "put my values into the values of aspects"
 (aspects at:#label)                value:label.
 (aspects at:#enabled)              value:enabled.
 (aspects at:#value)                value:value.
 (aspects at:#nameKey)              value:nameKey.
 (aspects at:#indication)           value:indication.
+(aspects at:#choice)               value:choice.
+(aspects at:#choiceValue)          value:choiceValue.
 (aspects at:#shortcutKey)          value:shortcutKey.
 (aspects at:#startGroup)           value:startGroup.
 (aspects at:#accessCharacterPos)   value:accessCharacterPos.
 (aspects at:#translateLabel)       value:translateLabel.
 (aspects at:#submenuChannel)       value:submenuChannel.
 ifTrue: [(aspects at:#argument)value:'#', argument]
 ifFalse:[(aspects at:#argument)value:argument].
 ].
 (aspects at:#isVisible) value:isVisible.
+"Modified: / 14.8.1998 / 15:37:29 / cg"
 ! !
 !MenuEditor::Item methodsFor:'queries'!
 iconFor: aNode

changeset 953	1aecad8bf33a
parent 943	b9ba76358fbd
child 955	f4f7d2ebd3ce