# HG changeset patch
# User ca
# Date 949569983 -3600
# Node ID a7c38b60f2fb471383b0482832c09174af2a7297
# Parent  50ea68e7e5580e871f282a8afa7f2c593a58b563
support accelerator and accessCharacter

diff -r 50ea68e7e558 -r a7c38b60f2fb TabListEditor.st
--- 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
-            )
            )
          
         )