--- a/MenuEditor.st Mon Mar 22 12:57:47 2004 +0100
+++ b/MenuEditor.st Mon Mar 22 12:58:06 2004 +0100
@@ -2919,7 +2919,7 @@
label: 'Details Edit'
name: 'Details Edit'
min: (Point 10 10)
- bounds: (Rectangle 12 22 419 313)
+ bounds: (Rectangle 0 0 407 291)
)
component:
(SpecCollection
@@ -2929,6 +2929,7 @@
name: 'shortcutKeyLabel'
layout: (AlignmentOrigin 107 0 26 0 1 0.5)
activeHelpKey: detailsAccelerator
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -2952,6 +2953,7 @@
name: 'enabledLabel'
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
activeHelpKey: detailsEnabled
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -2975,6 +2977,7 @@
name: 'visibilityLabel'
layout: (AlignmentOrigin 107 0 76 0 1 0.5)
activeHelpKey: detailsVisibility
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3022,6 +3025,7 @@
name: 'StartGroupLabel'
layout: (AlignmentOrigin 107 0 139 0 1 0.5)
activeHelpKey: detailsStartGroup
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3041,6 +3045,7 @@
label: 'Access Character Position:'
name: 'accessCharLabel'
layout: (AlignmentOrigin 217 0 170 0 1 0.5)
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3082,7 +3087,8 @@
(LabelSpec
label: 'Font:'
name: 'fontLabel'
- layout: (AlignmentOrigin 75 0 271 0 1 0.5)
+ layout: (AlignmentOrigin 107 0 271 0 1 0.5)
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3092,7 +3098,7 @@
true
)
name: 'fontMenu'
- layout: (LayoutFrame 78 0 260 0 -5 1.0 282 0)
+ layout: (LayoutFrame 110 0 260 0 -5 1.0 282 0)
activeHelpKey: fontMenu
model: font
)
@@ -3439,7 +3445,7 @@
label: 'basicsEditSpec'
name: 'basicsEditSpec'
min: (Point 10 10)
- bounds: (Rectangle 14 46 354 386)
+ bounds: (Rectangle 0 0 340 340)
)
component:
(SpecCollection
@@ -3449,6 +3455,7 @@
name: 'nameKeyLabel'
layout: (AlignmentOrigin 107 0 25 0 1 0.5)
activeHelpKey: basicsKey
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3474,6 +3481,7 @@
name: 'labelLabel'
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
activeHelpKey: basicsLabel
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3497,6 +3505,7 @@
name: 'valueLabel'
layout: (AlignmentOrigin 107 0 82 0 1 0.5)
activeHelpKey: basicsAction
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3522,6 +3531,7 @@
name: 'argumentLabel'
layout: (AlignmentOrigin 107 0 107 0 1 0.5)
activeHelpKey: basicsArgument
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3546,6 +3556,7 @@
name: 'indicationLabel'
layout: (AlignmentOrigin 107 0 138 0 1 0.5)
activeHelpKey: basicsIndication
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3624,6 +3635,7 @@
activeHelpKey: basicsTranslateLabel
tabable: true
model: translateLabel
+ translateLabel: true
)
(CheckBoxSpec
label: 'Is Button'
@@ -3632,6 +3644,7 @@
activeHelpKey: basicsIsButton
tabable: true
model: isButton
+ translateLabel: true
)
(CheckBoxSpec
label: 'Hide Menu after Activation'
@@ -3640,6 +3653,7 @@
activeHelpKey: hideMenuOnActivated
tabable: true
model: hideMenuOnActivated
+ translateLabel: true
)
(CheckBoxSpec
label: 'BusyCursor while Active'
@@ -3869,7 +3883,7 @@
label: 'basicsEditSpec'
name: 'basicsEditSpec'
min: (Point 10 10)
- bounds: (Rectangle 14 46 354 386)
+ bounds: (Rectangle 0 0 340 340)
)
component:
(SpecCollection
@@ -3880,6 +3894,7 @@
layout: (AlignmentOrigin 107 0 25 0 1 0.5)
activeHelpKey: basicsKey
visibilityChannel: notDelayedMenu
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3907,6 +3922,7 @@
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
activeHelpKey: basicsLabel
visibilityChannel: notDelayedMenu
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3931,6 +3947,7 @@
name: 'menuLabel'
layout: (AlignmentOrigin 107 0 90 0 1 0.5)
activeHelpKey: basicsLabel
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3955,6 +3972,7 @@
name: 'argumentLabel'
layout: (AlignmentOrigin 107 0 115 0 1 0.5)
activeHelpKey: basicsLabel
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -3983,6 +4001,7 @@
visibilityChannel: notDelayedMenu
tabable: true
model: translateLabel
+ translateLabel: true
)
(CheckBoxSpec
label: 'Is Button'
@@ -3992,6 +4011,7 @@
visibilityChannel: notDelayedMenu
tabable: true
model: isButton
+ translateLabel: true
)
(CheckBoxSpec
label: 'Horizontal Layout'
@@ -4000,6 +4020,7 @@
activeHelpKey: horizontalLayout
tabable: true
model: horizontalLayout
+ translateLabel: true
)
(CheckBoxSpec
label: 'Do not Destroy Linked Menu'
@@ -4163,7 +4184,7 @@
label: 'basicsEditSpec'
name: 'basicsEditSpec'
min: (Point 10 10)
- bounds: (Rectangle 14 46 354 386)
+ bounds: (Rectangle 0 0 340 340)
)
component:
(SpecCollection
@@ -4174,6 +4195,7 @@
layout: (AlignmentOrigin 107 0 25 0 1 0.5)
activeHelpKey: basicsKey
visibilityChannel: notDelayedMenu
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -4201,6 +4223,7 @@
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
activeHelpKey: basicsLabel
visibilityChannel: notDelayedMenu
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -4228,6 +4251,7 @@
visibilityChannel: notDelayedMenu
tabable: true
model: translateLabel
+ translateLabel: true
)
(CheckBoxSpec
label: 'Is Button'
@@ -4237,6 +4261,7 @@
visibilityChannel: notDelayedMenu
tabable: true
model: isButton
+ translateLabel: true
)
(CheckBoxSpec
label: 'Horizontal Layout'
@@ -4245,6 +4270,7 @@
activeHelpKey: horizontalLayout
tabable: true
model: horizontalLayout
+ translateLabel: true
)
)
@@ -4416,7 +4442,7 @@
label: 'Image Item'
name: 'Image Item'
min: (Point 10 10)
- bounds: (Rectangle 14 46 302 341)
+ bounds: (Rectangle 0 0 288 295)
)
component:
(SpecCollection
@@ -4426,6 +4452,7 @@
name: 'retrieverLabel'
layout: (AlignmentOrigin 107 0 26 0 1 0.5)
activeHelpKey: imageRetriever
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -4448,6 +4475,7 @@
name: 'iconLabel'
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
activeHelpKey: imageSelector
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -4501,12 +4529,14 @@
activeHelpKey: imageImageAndLabel
tabable: true
model: iconAndLabelHolder
+ translateLabel: true
)
(ActionButtonSpec
label: 'Image Editor'
name: 'imageEditorButton'
layout: (AlignmentOrigin 0 1.0 0 0.5 1 0.5)
activeHelpKey: imageImageEditor
+ hasCharacterOrientedLabel: false
tabable: true
model: doEditImage
)
@@ -4883,7 +4913,7 @@
label: 'basicsEditSpec'
name: 'basicsEditSpec'
min: (Point 10 10)
- bounds: (Rectangle 14 46 274 92)
+ bounds: (Rectangle 0 0 260 46)
)
component:
(SpecCollection
@@ -4893,6 +4923,7 @@
name: 'selectorLabel'
layout: (AlignmentOrigin 107 0 26 0 1 0.5)
activeHelpKey: basicsSelector
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -5063,7 +5094,7 @@
label: 'basicsEditSpec'
name: 'basicsEditSpec'
min: (Point 10 10)
- bounds: (Rectangle 14 46 274 291)
+ bounds: (Rectangle 0 0 260 245)
)
component:
(SpecCollection
@@ -5072,6 +5103,7 @@
label: 'Separator:'
name: 'separatorLabel'
layout: (AlignmentOrigin 107 0 26 0 1 0.5)
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -5088,6 +5120,7 @@
label: 'Visibility:'
name: 'visibilityLabel'
layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -5110,6 +5143,7 @@
label: 'Start Group:'
name: 'startGroupLabel'
layout: (AlignmentOrigin 107 0 88 0 1 0.5)
+ translateLabel: true
resizeForLabel: true
adjust: right
)
@@ -5138,14 +5172,21 @@
"
|holder|
- aspects at:#seperatorList ifAbsentPut:[
- self separatorSlices collect:[:el| el last ]
- ].
+ aspects
+ at:#seperatorList
+ ifAbsentPut:
+ [
+ |l|
+
+ l := self separatorSlices collect:[:el| el last ].
+ l := l collect:[:s | self classResources string:s ].
+ l
+ ].
aspects at:#seperatorSelection ifAbsentPut:[
- holder := 0 asValue.
- holder addDependent:aMenuEditor.
- holder
+ holder := 0 asValue.
+ holder addDependent:aMenuEditor.
+ holder
].
!