# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1079956686 -3600
# Node ID 00305c492d016b0364a38047b967bd13c7f113d1
# Parent  c3dbb51c292612df712f2ce8398b3a018ee52f78
translate labels

diff -r c3dbb51c2926 -r 00305c492d01 MenuEditor.st
--- 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
     ].
 !