--- 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.
]
!