# HG changeset patch
# User tz
# Date 886545680 -3600
# Node ID 7c5fcbde34b82b9826b5ed300f7e0490f7df510d
# Parent  8d82e8f101c11db26cdf2db8aba408b193515831
some corrections

diff -r 8d82e8f101c1 -r 7c5fcbde34b8 TabItemEditor.st
--- a/TabItemEditor.st	Tue Feb 03 23:38:42 1998 +0100
+++ b/TabItemEditor.st	Tue Feb 03 23:41:20 1998 +0100
@@ -182,11 +182,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tab Basic'
-              #'layout:' #(#LayoutFrame 171 0 551 0 477 0 751 0)
+              #'layout:' #(#LayoutFrame 411 0 572 0 773 0 797 0)
               #'label:' 'Tab Basic'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 171 551 478 752)
+              #'bounds:' #(#Rectangle 411 572 774 798)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -207,14 +207,14 @@
                 )
                  #(#CheckBoxSpec
                     #'name:' 'TranslateLabel'
-                    #'layout:' #(#LayoutOrigin 107 0 47 0)
+                    #'layout:' #(#LayoutOrigin 104 0 42 0)
                     #'activeHelpKey:' #translateLabel
                     #'model:' #translateLabel
                     #'label:' 'Label derives from Application'
                 )
                  #(#ColorMenuSpec
                     #'name:' 'ForegroundColorMenu'
-                    #'layout:' #(#LayoutFrame 75 0 124 0 -4 1.0 146 0)
+                    #'layout:' #(#LayoutFrame 75 0 124 0 -5 1.0 146 0)
                     #'activeHelpKey:' #foregroundColor
                     #'model:' #labelForegroundColor
                     #'labelsAreColored:' false
@@ -926,7 +926,7 @@
             ifTrue: [self doTest]
             ifFalse:[testView lower. self selectionHolder value:1].
 
-        self valueOfInfoLabel value: self defaultInfoLabel.
+        self updateInfoLabel
     ]
 ! !
 
@@ -949,6 +949,7 @@
     |s oldSel|
 
     self listOfLabels notEmpty ifTrue: [self canShowTestMode value: true].
+    anIndex notNil ifTrue: [self testMode value: false].
 
     oldSel := selectedIndex.
     selectedIndex := anIndex ? 0.
@@ -968,9 +969,6 @@
         testView lower.
     ].
 
-
-    "self testMode value not & anIndex notNil ifTrue: [self testMode value: false].
-    "
 ! !
 
 !TabItemEditor methodsFor:'startup / release'!
@@ -1076,6 +1074,7 @@
     |list index|
 
     (index := selectedIndex) ~~ 0 ifTrue:[
+        self testMode value: false.
         list := self listOfLabels.
         self clipboard:(listOfTabs at:index) deepCopy.
         self selectionHolder value:0.
@@ -1264,6 +1263,8 @@
 
 doNew
 
+    self testMode value: false.
+
     self modified:false.
 
     rebuildMode := true.
@@ -1287,6 +1288,7 @@
     "
     |tab|
 
+    self testMode value: false.
     tab := self class clipboard deepCopy.
     listOfTabs add:tab afterIndex:selectedIndex.
     self listOfLabels add:(tab label) afterIndex:selectedIndex.