--- a/AbstractFileBrowser.st	Wed Sep 03 10:55:14 2008 +0200
+++ b/AbstractFileBrowser.st	Thu Sep 04 10:04:39 2008 +0200
@@ -553,12 +553,10 @@
 
 !AbstractFileBrowser class methodsFor:'help specs'!
 
-flyByHelpSpec
+basicFlyByHelpSpec
     <resource: #help>
 
-    |spec hist resources|
-
-    spec := super flyByHelpSpec addPairsFrom:#(
+    ^ super flyByHelpSpec addPairsFrom:#(
 
 #closeTabButton
 'Close this Tab'
@@ -667,6 +665,21 @@
 
 ).
 
+    "
+     self flyByHelpSpec
+    "
+
+    "Modified: / 03-11-2007 / 12:05:01 / cg"
+!
+
+flyByHelpSpec
+    <resource: #programHelp>
+
+    |spec hist resources|
+
+    spec := self basicFlyByHelpSpec.
+
+    "/ add help items for the history
     hist := self directoryHistory.
     hist notNil ifTrue:[
         resources := self classResources.
@@ -7420,5 +7433,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.378 2008-08-28 10:39:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.379 2008-09-04 08:04:39 cg Exp $'
 ! !