--- 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 @@
<resource: #canvas>
^
- #(#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 @@
<resource: #canvas>
^
- #(#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
)
)