# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1211980859 -7200
# Node ID d6fdeda319decab579ae9cd685c77bf6acc22b75
# Parent  abdefb8e2b524cf699ce1f1392a87ca361369842
confusion between applicationProvidesLabel and translateLabel fixed.

diff -r abdefb8e2b52 -r d6fdeda319de TabListEditor.st
--- a/TabListEditor.st	Wed May 28 13:25:09 2008 +0200
+++ b/TabListEditor.st	Wed May 28 15:20:59 2008 +0200
@@ -129,6 +129,9 @@
 #addTabItem
 'Adds a new tab item.'
 
+#applicationProvidesLabel
+'If on, the label''s string is a selector returning a string or bitmap image, which is used as logo in the tab item.'
+
 #autoHideScrollBars
 'ScrollBars should be made invisible dynamically, if there is nothing to scroll.'
 
@@ -180,9 +183,6 @@
 #label
 'Label of the tab item.'
 
-#labelDerivesFromApplication
-'If turned on, the label''s string is a selector returning a string or bitmap image, which is used as logo in the tab item.'
-
 #majorKey
 'Name of the class to be started (application if empty); or app-selector returning application instance.'
 
@@ -192,6 +192,9 @@
 #testPreview
 'Turns on/off preview of the tab list.'
 
+#translateLabel
+'If on, the label is translated using the applications language resources.'
+
 #verticalMiniScroller
 'Use a mini-scroller as vertical scrollbar.'
 
@@ -246,7 +249,7 @@
           name: 'Basic'
           min: (Point 10 10)
           max: (Point 1280 1024)
-          bounds: (Rectangle 0 0 429 210)
+          bounds: (Rectangle 0 0 429 240)
         )
         component: 
        (SpecCollection
@@ -342,24 +345,33 @@
               acceptOnPointerLeave: false
             )
            (CheckBoxSpec
-              label: 'Application Provides Translation '
+              label: 'Translate Label '
               name: 'translateLabel'
-              layout: (Point 96 135)
-              activeHelpKey: labelDerivesFromApplication
+              layout: (LayoutFrame 96 0 135 0 308 0 161 0)
+              activeHelpKey: translateLabel
               tabable: true
               model: translateLabel
               translateLabel: true
             )
+           (CheckBoxSpec
+              label: 'Application Provides Label '
+              name: 'CheckBox1'
+              layout: (LayoutFrame 96 0 161 0 308 0 187 0)
+              activeHelpKey: applicationProvidesLabel
+              tabable: true
+              model: applicationProvidesLabel
+              translateLabel: true
+            )
            (LabelSpec
               label: 'Help Key:'
               name: 'activeHelp'
-              layout: (AlignmentOrigin 98 0 190 0 1 0.5)
+              layout: (AlignmentOrigin 98 0 203 0 1 0.5)
               translateLabel: true
               resizeForLabel: true
             )
            (InputFieldSpec
               name: 'activeHelpKey'
-              layout: (LayoutFrame 100 0 179 0 -5 1.0 201 0)
+              layout: (LayoutFrame 100 0 192 0 -5 1.0 214 0)
               activeHelpKey: label
               tabable: true
               model: activeHelpKey