--- a/Tools__NewSystemBrowser.st	Thu May 24 14:57:18 2018 +0200
+++ b/Tools__NewSystemBrowser.st	Thu May 24 16:34:30 2018 +0200
@@ -11527,6 +11527,12 @@
                   itemValue: selectorMenuNewTableColumnSpec
                   translateLabel: true
                 )
+               (MenuItem
+                  enabled: hasSingleClassWithNoHelpSpecSelectedHolder
+                  label: 'Help Spec (Tooltip Texts)'
+                  itemValue: selectorMenuNewHelpSpec
+                  translateLabel: true
+                )
                )
               nil
               nil
@@ -11553,6 +11559,7 @@
       )
 
     "Modified: / 09-11-2017 / 20:17:22 / cg"
+    "Modified: / 24-05-2018 / 15:43:20 / Claus Gittinger"
 !
 
 selectorMenuCompareGenerateDebugSlice
@@ -23440,6 +23447,17 @@
     "Created: / 4.2.2000 / 22:03:08 / cg"
 !
 
+hasSingleClassWithNoHelpSpecSelectedHolder
+    ^ [ 
+        |cls|
+
+        (cls := self theSingleSelectedClass) notNil
+        and:[ (cls theMetaclass implements:#helpSpec) not ]
+    ]
+
+    "Created: / 24-05-2018 / 15:42:39 / Claus Gittinger"
+!
+
 hasSingleLoadedClassSelected
     |cls|
 
@@ -49634,6 +49652,14 @@
     "Modified: / 05-07-2017 / 10:53:02 / cg"
 !
 
+selectorMenuNewHelpSpec
+    "open a helpSpec editor for a new helpSpec method"
+
+    self selectorMenuNewSpecMethodWithType:#help
+
+    "Created: / 24-05-2018 / 15:44:44 / Claus Gittinger"
+!
+
 selectorMenuNewImageSpec
     "open a bitmap painter for a new image-spec method"
 
@@ -49668,7 +49694,7 @@
 
 selectorMenuNewSpecMethodWithType:specTypeSymbol
     "open a painter for a new specTypeSymbol-spec method.
-     specTypeSymbol is one of #image, #canvas or #menu"
+     specTypeSymbol is one of #image, #canvas, #tableColumns, #menu or #help"
 
     |editorClass currentClass|
 
@@ -49685,6 +49711,7 @@
     ]
 
     "Created: / 01-03-2007 / 20:55:46 / cg"
+    "Modified (comment): / 24-05-2018 / 15:45:24 / Claus Gittinger"
 !
 
 selectorMenuNewTableColumnSpec