# HG changeset patch # User Claus Gittinger # Date 1095776995 -7200 # Node ID 1e2a0c548e8235b6267911ae104dc8066d90519f # Parent cfef9684a543e5faef375da7f6a3decefcd4ac13 translate labels in specs diff -r cfef9684a543 -r 1e2a0c548e82 TabListEditor.st --- a/TabListEditor.st Tue Sep 21 16:27:47 2004 +0200 +++ b/TabListEditor.st Tue Sep 21 16:29:55 2004 +0200 @@ -241,134 +241,140 @@ ^ - #(#FullSpec - #name: #basicSpec - #window: - #(#WindowSpec - #label: 'Basic' - #name: 'Basic' - #min: #(#Point 10 10) - #max: #(#Point 1280 1024) - #bounds: #(#Rectangle 803 137 1232 347) + #(FullSpec + name: basicSpec + window: + (WindowSpec + label: 'Basic' + name: 'Basic' + min: (Point 10 10) + max: (Point 1280 1024) + bounds: (Rectangle 0 0 429 210) ) - #component: - #(#SpecCollection - #collection: #( - #(#LabelSpec - #label: 'Label:' - #name: 'labelLabel' - #layout: #(#AlignmentOrigin 98 0 26 0 1 0.5) - #resizeForLabel: true + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Label:' + name: 'labelLabel' + layout: (AlignmentOrigin 98 0 26 0 1 0.5) + translateLabel: true + resizeForLabel: true ) - #(#InputFieldSpec - #name: 'label' - #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0) - #activeHelpKey: #label - #tabable: true - #model: #label - #group: #inputGroup - #immediateAccept: true - #acceptOnReturn: false - #acceptOnTab: false - #acceptOnLostFocus: false - #acceptChannel: #acceptChannel - #modifiedChannel: #modifiedChannel - #acceptOnPointerLeave: false + (InputFieldSpec + name: 'label' + layout: (LayoutFrame 100 0 15 0 -5 1.0 37 0) + activeHelpKey: label + tabable: true + model: label + group: inputGroup + immediateAccept: true + acceptOnReturn: false + acceptOnTab: false + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) - #(#LabelSpec - #label: 'Accelerator:' - #name: 'shortcutKeyLabel' - #layout: #(#AlignmentOrigin 98 0 55 0 1 0.5) - #resizeForLabel: true + (LabelSpec + label: 'Accelerator:' + name: 'shortcutKeyLabel' + layout: (AlignmentOrigin 98 0 55 0 1 0.5) + translateLabel: true + resizeForLabel: true ) - #(#InputFieldSpec - #name: 'shortcutKey' - #layout: #(#LayoutFrame 100 0 44 0 -5 1.0 66 0) - #activeHelpKey: #detailsAccelerator - #tabable: true - #model: #shortcutKey - #group: #inputGroup - #type: #symbolOrNil - #immediateAccept: true - #acceptOnReturn: false - #acceptOnTab: false - #acceptOnLostFocus: false - #acceptChannel: #acceptChannel - #modifiedChannel: #modifiedChannel - #acceptOnPointerLeave: false + (InputFieldSpec + name: 'shortcutKey' + layout: (LayoutFrame 100 0 44 0 -5 1.0 66 0) + activeHelpKey: detailsAccelerator + tabable: true + model: shortcutKey + group: inputGroup + type: symbolOrNil + immediateAccept: true + acceptOnReturn: false + acceptOnTab: false + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) - #(#LabelSpec - #label: 'Argument:' - #name: 'editAgumentLabel' - #layout: #(#AlignmentOrigin 98 0 84 0 1 0.5) - #resizeForLabel: true + (LabelSpec + label: 'Argument:' + name: 'editAgumentLabel' + layout: (AlignmentOrigin 98 0 84 0 1 0.5) + translateLabel: true + resizeForLabel: true ) - #(#InputFieldSpec - #name: 'editAgument' - #layout: #(#LayoutFrame 100 0 73 0 -5 1.0 95 0) - #activeHelpKey: #detailsArgument - #tabable: true - #model: #editAgument - #group: #inputGroup - #immediateAccept: true - #acceptOnReturn: false - #acceptOnTab: false - #acceptOnLostFocus: false - #acceptChannel: #acceptChannel - #modifiedChannel: #modifiedChannel - #acceptOnPointerLeave: false + (InputFieldSpec + name: 'editAgument' + layout: (LayoutFrame 100 0 73 0 -5 1.0 95 0) + activeHelpKey: detailsArgument + tabable: true + model: editAgument + group: inputGroup + immediateAccept: true + acceptOnReturn: false + acceptOnTab: false + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) - #(#LabelSpec - #label: 'Access Character Position:' - #name: 'accessCharacterPositionLabel' - #layout: #(#AlignmentOrigin 275 0 113 0 1 0.5) - #resizeForLabel: true + (LabelSpec + label: 'Access Character Position:' + name: 'accessCharacterPositionLabel' + layout: (AlignmentOrigin 275 0 113 0 1 0.5) + translateLabel: true + resizeForLabel: true ) - #(#InputFieldSpec - #name: 'accessCharacterPosition' - #layout: #(#LayoutFrame 278 0 103 0 -5 1.0 125 0) - #activeHelpKey: #detailsAccessCharaterPosition - #tabable: true - #model: #accessCharacterPosition - #group: #inputGroup - #type: #number - #immediateAccept: true - #acceptOnReturn: false - #acceptOnTab: false - #acceptOnLostFocus: false - #acceptChannel: #acceptChannel - #modifiedChannel: #modifiedChannel - #acceptOnPointerLeave: false + (InputFieldSpec + name: 'accessCharacterPosition' + layout: (LayoutFrame 278 0 103 0 -5 1.0 125 0) + activeHelpKey: detailsAccessCharaterPosition + tabable: true + model: accessCharacterPosition + group: inputGroup + type: number + immediateAccept: true + acceptOnReturn: false + acceptOnTab: false + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) - #(#CheckBoxSpec - #label: 'Application Provides Translation ' - #name: 'translateLabel' - #layout: #(#Point 96 135) - #activeHelpKey: #labelDerivesFromApplication - #tabable: true - #model: #translateLabel + (CheckBoxSpec + label: 'Application Provides Translation ' + name: 'translateLabel' + layout: (Point 96 135) + activeHelpKey: labelDerivesFromApplication + tabable: true + model: translateLabel + translateLabel: true ) - #(#LabelSpec - #label: 'Help Key:' - #name: 'activeHelp' - #layout: #(#AlignmentOrigin 98 0 190 0 1 0.5) - #resizeForLabel: true + (LabelSpec + label: 'Help Key:' + name: 'activeHelp' + layout: (AlignmentOrigin 98 0 190 0 1 0.5) + translateLabel: true + resizeForLabel: true ) - #(#InputFieldSpec - #name: 'activeHelpKey' - #layout: #(#LayoutFrame 100 0 179 0 -5 1.0 201 0) - #activeHelpKey: #label - #tabable: true - #model: #activeHelpKey - #group: #inputGroup - #type: #symbolOrNil - #immediateAccept: true - #acceptOnReturn: false - #acceptOnTab: false - #acceptOnLostFocus: false - #acceptChannel: #acceptChannel - #modifiedChannel: #modifiedChannel - #acceptOnPointerLeave: false + (InputFieldSpec + name: 'activeHelpKey' + layout: (LayoutFrame 100 0 179 0 -5 1.0 201 0) + activeHelpKey: label + tabable: true + model: activeHelpKey + group: inputGroup + type: symbolOrNil + immediateAccept: true + acceptOnReturn: false + acceptOnTab: false + acceptOnLostFocus: false + acceptChannel: acceptChannel + modifiedChannel: modifiedChannel + acceptOnPointerLeave: false ) ) @@ -454,6 +460,7 @@ name: 'FramedBox' layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0) labelPosition: topLeft + translateLabel: true component: (SpecCollection collection: ( @@ -521,7 +528,7 @@ ) ) - extent: (Point 111 55) + extent: (Point 113 61) ) (ViewSpec name: 'Box3' @@ -552,7 +559,7 @@ ) ) - extent: (Point 111 55) + extent: (Point 113 61) ) ) @@ -591,44 +598,42 @@ ^ - #(#FullSpec - #name: #detailSpec - #window: - #(#WindowSpec - #label: 'Details' - #name: 'Details' - #min: #(#Point 10 10) - #max: #(#Point 1280 1024) - #bounds: #(#Rectangle 12 22 370 129) + #(FullSpec + name: detailSpec + window: + (WindowSpec + label: 'Details' + name: 'Details' + min: (Point 10 10) + max: (Point 1280 1024) + bounds: (Rectangle 0 0 358 107) ) - #component: - #(#SpecCollection - #collection: #( - #(#CheckBoxSpec - #label: 'Can Select' - #name: 'enabled' - #layout: #(#Point 46 14) - #activeHelpKey: #canSelect - #tabable: true - #model: #enabled + component: + (SpecCollection + collection: ( + (CheckBoxSpec + label: 'Can Select' + name: 'enabled' + layout: (Point 46 14) + activeHelpKey: canSelect + tabable: true + model: enabled + translateLabel: true ) - #(#LabelSpec - #label: 'Color:' - #name: 'ForegroundLabel' - #layout: #(#AlignmentOrigin 46 0 62 0 1 0.5) - #resizeForLabel: true - #adjust: #right + (LabelSpec + label: 'Color:' + name: 'ForegroundLabel' + layout: (AlignmentOrigin 46 0 62 0 1 0.5) + translateLabel: true + resizeForLabel: true + adjust: right ) - #(#ColorMenuSpec - #attributes: - #(#tabable - true - ) - #name: 'ForegroundColorMenu' - #layout: #(#LayoutFrame 48 0 50 0 -10 1.0 72 0) - #activeHelpKey: #color - #model: #labelForegroundColor - #labelsAreColored: false + (ColorMenuSpec + name: 'ForegroundColorMenu' + layout: (LayoutFrame 48 0 50 0 -10 1.0 72 0) + activeHelpKey: color + model: labelForegroundColor + labelsAreColored: false ) )