--- a/MenuEditor.st Fri May 03 19:59:24 2002 +0200
+++ b/MenuEditor.st Tue May 07 12:06:58 2002 +0200
@@ -26,7 +26,7 @@
instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
accessCharacterPos retriever icon iconAndLabel submenuChannel
startGroup argument translateLabel isButton isVisible choice
- choiceValue auxValue hideMenuOnActivated font
+ choiceValue auxValue hideMenuOnActivated font horizontalLayout
showBusyCursorWhilePerforming keepLinkedMenu triggerOnDown'
classVariableNames:''
poolDictionaries:''
@@ -160,6 +160,7 @@
label
accessCharacterPos
showBusyCursorWhilePerforming
+ horizontalLayout
triggerOnDown
font
argument
@@ -355,6 +356,9 @@
#triggerOnDown
'If on, the items action is performed on mouse-button press (default is on button-release).'
+#horizontalLayout
+'If on, the submenu organizes its items horizontal insteat of vertical (default).'
+
)
! !
@@ -796,9 +800,17 @@
#model: #translateLabel
)
#(#CheckBoxSpec
+ #label: 'Has Horizontal Layout'
+ #name: 'horizontalLayout'
+ #layout: #(#Point 20 217)
+ #activeHelpKey: #horizontalLayout
+ #tabable: true
+ #model: #horizontalLayout
+ )
+ #(#CheckBoxSpec
#label: 'Do not destroy linked Menu'
#name: 'keepLinkedMenu'
- #layout: #(#Point 20 217)
+ #layout: #(#Point 20 244)
#tabable: true
#activeHelpKey: #keepLinkedMenu
#model: #keepLinkedMenu
@@ -887,6 +899,15 @@
#tabable: true
#model: #translateLabel
)
+ #(#CheckBoxSpec
+ #label: 'Has Horizontal Orientation'
+ #name: 'horizontalLayout'
+ #layout: #(#Point 20 217)
+ #activeHelpKey: #horizontalLayout
+ #tabable: true
+ #model: #horizontalLayout
+ )
+
)
)
@@ -2956,6 +2977,7 @@
translateLabel := (aspects at:#translateLabel) value.
isButton := (aspects at:#isButton) value.
auxValue := (aspects at:#auxValue) value.
+ horizontalLayout := (aspects at:#horizontalLayout) value.
argument isString ifTrue:[
argument size > 1 ifTrue:[
@@ -3017,6 +3039,7 @@
isVisible := anItem isVisible.
hideMenuOnActivated := anItem hideMenuOnActivated.
auxValue := anItem auxValue.
+ horizontalLayout := anItem horizontalLayout.
(((rtv := anItem adornment) notNil)
and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever])
@@ -3064,6 +3087,10 @@
item isButton: isButton.
item auxValue: auxValue.
+ horizontalLayout == true ifTrue:[
+ item horizontalLayout:true.
+ ].
+
icon notNil ifTrue:[
rcv := ResourceRetriever new.
rcv className:retriever.
@@ -3108,6 +3135,7 @@
(aspects at:#iconAndLabel) value:iconAndLabel.
(aspects at:#isButton) value:isButton.
(aspects at:#auxValue) value:auxValue.
+ (aspects at:#horizontalLayout) value:(horizontalLayout ? false).
(aspects at:#argument)
value:(argument isSymbol