--- a/TabItemEditor.st	Mon Feb 02 19:00:53 1998 +0100
+++ b/TabItemEditor.st	Mon Feb 02 20:18:09 1998 +0100
@@ -58,6 +58,33 @@
 
 ! !
 
+!TabItemEditor class methodsFor:'help specs'!
+
+helpSpec
+    "return a dictionary filled with helpKey -> helptext associations.
+     These are used by the activeHelp tool."
+
+    "
+    UIHelpTool openOnClass:TabItemEditor    
+    "
+
+  ^ super helpSpec addPairsFrom:#(
+
+#addTabItem
+'Adds a new tab item.'
+
+#fileNew
+'Creates a new tab list.'
+
+#fileReload
+'Reload tab list from current class and selector.'
+
+#fileSave
+'Saves current tab list.'
+
+)
+! !
+
 !TabItemEditor class methodsFor:'interface specs'!
 
 nameAndSelectorSpec
@@ -944,7 +971,7 @@
 doCreateTab
     |tab|
 
-    tab := TabItem label:'label'.
+    tab := TabItem label:'Tab Item ', (listOfTabs size + 1) printString.
 
     listOfTabs add:tab afterIndex:selectedIndex.
     self listOfLabels add:(tab label) afterIndex:selectedIndex.
@@ -953,6 +980,7 @@
     selectedIndex == 0 ifTrue:[
         self selectionHolder value:1
     ] ifFalse:[
+        self selectionHolder value:listOfTabs size.
         self cancel.
     ]
 !