# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1174911938 -7200
# Node ID 572401f41f3a182ae75a50f1f01ac233ae3c0155
# Parent  a5ff995ed0d7388e691b6102812032e437d5eaa9
added activeHelpKey

diff -r a5ff995ed0d7 -r 572401f41f3a DataSetBuilder.st
--- a/DataSetBuilder.st	Fri Mar 23 10:42:27 2007 +0100
+++ b/DataSetBuilder.st	Mon Mar 26 14:25:38 2007 +0200
@@ -79,6 +79,7 @@
 
     ^#(
         id
+        activeHelpKey
         label
         canSelect
         choices
@@ -129,7 +130,7 @@
         maxValue
      )
 
-    "Modified: / 19.5.1998 / 21:27:06 / cg"
+    "Modified: / 26-03-2007 / 14:05:10 / cg"
 ! !
 
 !DataSetBuilder class methodsFor:'help specs'!
@@ -404,7 +405,7 @@
           label: 'DataSet Basic'
           name: 'DataSet Basic'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 389 319)
+          bounds: (Rectangle 0 0 389 369)
         )
         component: 
        (SpecCollection
@@ -422,8 +423,8 @@
                     label: 'ID:'
                     name: 'idLabel'
                     layout: (AlignmentOrigin 94 0 14 0 1 0.5)
+                    translateLabel: true
                     resizeForLabel: true
-                    translateLabel: true
                   )
                  (InputFieldSpec
                     name: 'idField'
@@ -441,8 +442,8 @@
                     label: 'Label:'
                     name: 'label1'
                     layout: (AlignmentOrigin 94 0 39 0 1 0.5)
+                    translateLabel: true
                     resizeForLabel: true
-                    translateLabel: true
                   )
                  (InputFieldSpec
                     name: 'labelField'
@@ -463,9 +464,9 @@
                     label: 'Font:'
                     name: 'LabelFont'
                     layout: (AlignmentOrigin 94 0 68 0 1 0.5)
+                    translateLabel: true
                     resizeForLabel: true
                     adjust: left
-                    translateLabel: true
                   )
                  (FontMenuSpec
                     name: 'fontMenu'
@@ -487,8 +488,9 @@
                     tabable: true
                     model: labelButtonType
                     comboList: 
-                   (None
-                      Button Group
+                   (Array
+                      None Button
+                      Group
                     )
                     useIndex: false
                     hidePullDownMenuButton: false
@@ -497,9 +499,9 @@
                     label: 'Align:'
                     name: 'JustificationLabel'
                     layout: (LayoutFrame 186 0 97 0 243 0 118 0)
+                    translateLabel: true
                     resizeForLabel: true
                     adjust: right
-                    translateLabel: true
                   )
                  (PopUpListSpec
                     label: 'Alignment'
@@ -509,8 +511,9 @@
                     tabable: true
                     model: labelAlignment
                     menu: 
-                   (left
-                      right center
+                   (Array
+                      left right
+                      center
                     )
                   )
                  (CheckBoxSpec
@@ -538,9 +541,9 @@
            (FramedBoxSpec
               label: 'Cell Type:'
               name: 'typesFrame'
-              layout: (LayoutFrame 0 0.0 190 0 0 1.0 304 0)
+              layout: (LayoutFrame 0 0.0 188 0 0 1.0 302 0)
               labelPosition: topLeft
-                    translateLabel: true
+              translateLabel: true
               component: 
              (SpecCollection
                 collection: (
@@ -548,8 +551,8 @@
                     label: 'Renderer:'
                     name: 'rendererLabel'
                     layout: (AlignmentOrigin 94 0 16 0 1 0.5)
+                    translateLabel: true
                     resizeForLabel: true
-                    translateLabel: true
                   )
                  (ComboListSpec
                     name: 'rendererField'
@@ -565,8 +568,8 @@
                     label: 'Editor:'
                     name: 'editorLabel'
                     layout: (AlignmentOrigin 94 0 42 0 1 0.5)
+                    translateLabel: true
                     resizeForLabel: true
-                    translateLabel: true
                   )
                  (ComboBoxSpec
                     name: 'editorField'
@@ -586,22 +589,22 @@
                  (LabelSpec
                     label: 'Align:'
                     name: 'JustificationC'
-                    layout: (LayoutFrame 185 0 58 0 243 0 79 0)
+                    layout: (LayoutFrame -194 1 58 0 -114 1 79 0)
+                    translateLabel: true
                     resizeForLabel: true
                     adjust: right
-                    translateLabel: true
                   )
                  (PopUpListSpec
                     label: 'Alignment'
                     name: 'AlignmentC'
-                    layout: (LayoutFrame 248 0 58 0 2 1.0 80 0)
+                    layout: (LayoutFrame -115 1 58 0 2 1.0 80 0)
                     activeHelpKey: basicsJustificationEditor
                     tabable: true
                     model: columnAlignment
                     menu: 
-                   (left
-                      right center
-                      decimal
+                   (Array
+                      left right
+                      center decimal
                     )
                   )
                  (CheckBoxSpec
@@ -617,6 +620,38 @@
                
               )
             )
+           (FramedBoxSpec
+              label: 'Active Help:'
+              name: 'FramedBox1'
+              layout: (LayoutFrame 0 0.0 303 0 0 1.0 357 0)
+              labelPosition: topLeft
+              translateLabel: true
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Key:'
+                    name: 'Label1'
+                    layout: (AlignmentOrigin 94 0 14 0 1 0.5)
+                    translateLabel: true
+                    resizeForLabel: true
+                  )
+                 (InputFieldSpec
+                    name: 'EntryField1'
+                    layout: (LayoutFrame 97 0 0 0 2 1.0 22 0)
+                    activeHelpKey: basicsLabelId
+                    tabable: true
+                    model: activeHelpKey
+                    group: inputGroup
+                    acceptOnLostFocus: false
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
+                 )
+               
+              )
+            )
            )
          
         )