--- a/TabListEditor.st Wed Feb 02 19:11:27 2000 +0100
+++ b/TabListEditor.st Thu Feb 03 10:26:23 2000 +0100
@@ -94,6 +94,8 @@
labelForegroundColor
enabled
editAgument
+ accessCharacterPosition
+ shortcutKey
)
! !
@@ -193,74 +195,156 @@
#(#WindowSpec
#label: 'Tab Basic'
#name: 'Tab Basic'
- #layout: #(#LayoutFrame 220 0 200 0 634 0 425 0)
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 220 200 635 426)
+ #bounds: #(#Rectangle 8 377 436 604)
)
#component:
#(#SpecCollection
#collection: #(
#(#LabelSpec
#label: 'Label:'
- #name: 'Label'
+ #name: 'labelLabel'
#layout: #(#AlignmentOrigin 98 0 26 0 1 0.5)
#resizeForLabel: true
)
#(#InputFieldSpec
- #name: 'LabelField'
+ #attributes:
+ #(#LabelField
+ nil #label
+ nil #tabable
+ true
+ )
+ #name: 'label'
#layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0)
#activeHelpKey: #label
+ #tabable: true
#model: #label
+ #group: #inputGroup
+ #acceptOnLostFocus: true
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'Accelerator:'
+ #name: 'shortcutKeyLabel'
+ #layout: #(#AlignmentOrigin 98 0 55 0 1 0.5)
+ #resizeForLabel: true
+ )
+ #(#InputFieldSpec
+ #attributes:
+ #(#label
+ nil #shortcutKey
+ nil #tabable
+ true
+ )
+ #name: 'shortcutKey'
+ #layout: #(#LayoutFrame 100 0 44 0 -5 1.0 66 0)
+ #activeHelpKey: #label
+ #tabable: true
+ #model: #shortcutKey
+ #group: #inputGroup
+ #type: #symbolOrNil
+ #acceptOnLostFocus: true
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'Argument:'
+ #name: 'editAgumentLabel'
+ #layout: #(#AlignmentOrigin 98 0 84 0 1 0.5)
+ #resizeForLabel: true
+ )
+ #(#InputFieldSpec
+ #attributes:
+ #(#tabable
+ true #ArgumentField
+ nil #editAgument
+ nil
+ )
+ #name: 'editAgument'
+ #layout: #(#LayoutFrame 100 0 73 0 -5 1.0 95 0)
+ #activeHelpKey: #argument
+ #tabable: true
+ #model: #editAgument
+ #group: #inputGroup
+ #acceptOnReturn: true
+ #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
+ )
+ #(#InputFieldSpec
+ #attributes:
+ #(#label
+ nil #accessCharacterPos
+ nil #tabable
+ true #accessCharacterPosition
+ nil
+ )
+ #name: 'accessCharacterPosition'
+ #layout: #(#LayoutFrame 278 0 103 0 -5 1.0 125 0)
+ #activeHelpKey: #label
+ #tabable: true
+ #model: #accessCharacterPosition
+ #group: #inputGroup
+ #type: #number
#acceptOnLostFocus: true
#acceptChannel: #acceptChannel
#modifiedChannel: #modifiedChannel
#acceptOnPointerLeave: false
)
#(#CheckBoxSpec
+ #attributes:
+ #(#tabable
+ true
+ )
#label: 'Application provides translation '
- #name: 'TranslateLabel'
- #layout: #(#LayoutFrame 59 0 45 0 -8 1 71 0)
+ #name: 'translateLabel'
+ #layout: #(#Point 96 135)
#activeHelpKey: #labelDerivesFromApplication
+ #tabable: true
#model: #translateLabel
)
- #(#LabelSpec
- #label: 'Argument:'
- #name: 'ArgumentLabel'
- #layout: #(#AlignmentOrigin 98 0 182 0 1 0.5)
- #resizeForLabel: true
- )
- #(#InputFieldSpec
- #name: 'ArgumentField'
- #layout: #(#LayoutFrame 100 0 171 0 -5 1.0 193 0)
- #activeHelpKey: #argument
- #model: #editAgument
- #acceptOnLostFocus: true
- #acceptChannel: #acceptChannel
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
+ #(#CheckBoxSpec
+ #attributes:
+ #(#tabable
+ true
+ )
+ #label: 'Can Select'
+ #name: 'enabled'
+ #layout: #(#Point 96 161)
+ #activeHelpKey: #canSelect
+ #tabable: true
+ #model: #enabled
)
#(#LabelSpec
#label: 'Color:'
#name: 'ForegroundLabel'
- #layout: #(#AlignmentOrigin 98 0 91 0 1 0.5)
+ #layout: #(#AlignmentOrigin 98 0 209 0 1 0.5)
#resizeForLabel: true
#adjust: #right
)
#(#ColorMenuSpec
+ #attributes:
+ #(#tabable
+ true
+ )
#name: 'ForegroundColorMenu'
- #layout: #(#LayoutFrame 100 0 79 0 -5 1.0 101 0)
+ #layout: #(#LayoutFrame 100 0 197 0 -5 1.0 219 0)
#activeHelpKey: #color
#model: #labelForegroundColor
#labelsAreColored: false
)
- #(#CheckBoxSpec
- #label: 'Can Select'
- #name: 'CanSelect'
- #layout: #(#LayoutFrame 59 0 110 0 -8 1 132 0)
- #activeHelpKey: #canSelect
- #model: #enabled
- )
)
)