--- a/TabItemEditor.st	Wed Feb 04 16:12:58 1998 +0100
+++ b/TabItemEditor.st	Wed Feb 04 16:37:25 1998 +0100
@@ -73,6 +73,18 @@
 #addTabItem
 'Adds a new tab item.'
 
+#argument
+''
+
+#canSelect
+'Turns on/off selection behavior of the tab list item.'
+
+#color
+'Color of the label.'
+
+#fileCreateAspectMethod
+'Creates the aspect method for the tab list.'
+
 #fileNew
 'Creates a new tab list.'
 
@@ -82,8 +94,14 @@
 #fileSave
 'Saves current tab list.'
 
+#label
+'Label of the tab list item.'
+
+#labelDerivesFromApplication
+''
+
 #testPreview
-'Toggle on/off preview of the tab list.'
+'Turns on/off preview of the tab list.'
 
 )
 ! !
@@ -182,11 +200,11 @@
           #'window:' 
            #(#WindowSpec
               #'name:' 'Tab Basic'
-              #'layout:' #(#LayoutFrame 411 0 572 0 773 0 797 0)
+              #'layout:' #(#LayoutFrame 123 0 255 0 485 0 480 0)
               #'label:' 'Tab Basic'
               #'min:' #(#Point 10 10)
               #'max:' #(#Point 1280 1024)
-              #'bounds:' #(#Rectangle 411 572 774 798)
+              #'bounds:' #(#Rectangle 123 255 486 481)
               #'usePreferredExtent:' false
           )
           #'component:' 
@@ -208,14 +226,14 @@
                  #(#CheckBoxSpec
                     #'name:' 'TranslateLabel'
                     #'layout:' #(#LayoutOrigin 104 0 42 0)
-                    #'activeHelpKey:' #translateLabel
+                    #'activeHelpKey:' #labelDerivesFromApplication
                     #'model:' #translateLabel
                     #'label:' 'Label derives from Application'
                 )
                  #(#ColorMenuSpec
                     #'name:' 'ForegroundColorMenu'
-                    #'layout:' #(#LayoutFrame 75 0 124 0 -5 1.0 146 0)
-                    #'activeHelpKey:' #foregroundColor
+                    #'layout:' #(#LayoutFrame 75 0 124 0 -7 1.0 146 0)
+                    #'activeHelpKey:' #color
                     #'model:' #labelForegroundColor
                     #'labelsAreColored:' false
                 )
@@ -229,6 +247,7 @@
                  #(#CheckBoxSpec
                     #'name:' 'CanSelect'
                     #'layout:' #(#LayoutFrame 107 0 176 0 226 0 198 0)
+                    #'activeHelpKey:' #canSelect
                     #'model:' #enabled
                     #'label:' 'Can Select'
                 )
@@ -241,7 +260,7 @@
                  #(#InputFieldSpec
                     #'name:' 'ArgumentField'
                     #'layout:' #(#LayoutFrame 107 0 80 0 -5 1.0 102 0)
-                    #'activeHelpKey:' #label
+                    #'activeHelpKey:' #argument
                     #'model:' #editAgument
                 )
               )
@@ -399,11 +418,13 @@
            #(
              #(#MenuItem
                 #'label:' 'About'
+                #'activeHelpKey:' #about
                 #'labelImage:' #(#ResourceRetriever nil #menuIcon)
                 #'submenuChannel:' #menuAbout
             )
              #(#MenuItem
                 #'label:' 'File'
+                #'activeHelpKey:' #file
                 #'submenu:' 
                  #(#Menu
                     
@@ -442,6 +463,7 @@
                        #(#MenuItem
                           #'label:' 'Create Aspect Method'
                           #'value:' #doInstallAspect
+                          #'activeHelpKey:' #fileCreateAspectMethod
                           #'enabled:' #hasClassAndSelector
                       )
                        #(#MenuItem
@@ -459,10 +481,12 @@
             )
              #(#MenuItem
                 #'label:' 'Edit'
+                #'activeHelpKey:' #edit
                 #'submenuChannel:' #menuEdit
             )
              #(#MenuItem
                 #'label:' 'Add'
+                #'activeHelpKey:' #add
                 #'submenu:' 
                  #(#Menu
                     
@@ -479,13 +503,14 @@
             )
              #(#MenuItem
                 #'label:' 'Test'
-                #'activeHelpKey:' #testPreview
+                #'activeHelpKey:' #test
                 #'submenu:' 
                  #(#Menu
                     
                      #(
                        #(#MenuItem
                           #'label:' 'Preview'
+                          #'activeHelpKey:' #testPreview
                           #'enabled:' #canShowTestMode
                           #'indication:' #testMode
                       )
@@ -495,11 +520,13 @@
             )
              #(#MenuItem
                 #'label:' 'History'
+                #'activeHelpKey:' #history
                 #'submenuChannel:' #menuHistory
             )
              #(#MenuItem
                 #'label:' 'Help'
                 #'startGroup:' #right
+                #'activeHelpKey:' #help
                 #'submenuChannel:' #menuHelp
             )
           ) nil
@@ -882,7 +909,7 @@
                         list add:aTab label.
                         listOfTabs add:aTab.
                     ].
-                    rebuildMode := false.
+                    rebuildMode := false.          
                     self addToHistory:(className name, ' ', selector) -> #loadFromMessage:                        
                 ]
             ]
@@ -896,6 +923,8 @@
     listOfTabs notEmpty ifTrue:[
         self selectionHolder value:1
     ].
+
+    self updateInfoLabel
 !
 
 loadFromMessage:aMessage
@@ -934,9 +963,11 @@
 
 defaultInfoLabel
 
-    ^self testMode value
-        ifTrue:  ['Test mode']
-        ifFalse: ['']
+    self testMode value
+        ifTrue:  [^'Test mode']
+        ifFalse: [
+        className isNil ifTrue: [^'No tab list class defined'].
+        ^className name, ' >> ', selector printString]
 ! !
 
 !TabItemEditor methodsFor:'selection'!