allow for separate activeHelp for the label area
authorClaus Gittinger <cg@exept.de>
Tue, 05 Aug 2008 15:59:25 +0200
changeset 2385 b7dafe79bd7c
parent 2384 4b1b8d243be1
child 2386 4471bede7939
allow for separate activeHelp for the label area
DataSetBuilder.st
--- a/DataSetBuilder.st	Fri Aug 01 14:26:33 2008 +0200
+++ b/DataSetBuilder.st	Tue Aug 05 15:59:25 2008 +0200
@@ -80,6 +80,7 @@
     ^#(
         id
         activeHelpKey
+        activeHelpKeyForLabel
         label
         canSelect
         choices
@@ -436,7 +437,7 @@
           label: 'DataSet Basic'
           name: 'DataSet Basic'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 389 369)
+          bounds: (Rectangle 0 0 389 418)
         )
         component: 
        (SpecCollection
@@ -444,7 +445,7 @@
            (FramedBoxSpec
               label: 'Header:'
               name: 'framedBox1'
-              layout: (LayoutFrame 0 0.0 3 0 0 1.0 187 0)
+              layout: (LayoutFrame 0 0.0 3 0 0 1.0 180 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -655,7 +656,7 @@
            (FramedBoxSpec
               label: 'Active Help:'
               name: 'FramedBox1'
-              layout: (LayoutFrame 0 0.0 303 0 0 1.0 357 0)
+              layout: (LayoutFrame 0 0.0 303 0 0 1.0 383 0)
               labelPosition: topLeft
               translateLabel: true
               component: 
@@ -680,6 +681,25 @@
                     modifiedChannel: modifiedChannel
                     acceptOnPointerLeave: false
                   )
+                 (LabelSpec
+                    label: 'Key for Label:'
+                    name: 'Label2'
+                    layout: (AlignmentOrigin 94 0 42 0 1 0.5)
+                    translateLabel: true
+                    resizeForLabel: true
+                  )
+                 (InputFieldSpec
+                    name: 'EntryField2'
+                    layout: (LayoutFrame 97 0 28 0 2 1.0 50 0)
+                    activeHelpKey: basicsLabelId
+                    tabable: true
+                    model: activeHelpKeyForLabel
+                    group: inputGroup
+                    acceptOnLostFocus: false
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
                  )
                
               )