--- a/FileBrowserV2.st	Tue Nov 19 15:44:10 2002 +0100
+++ b/FileBrowserV2.st	Tue Nov 19 15:44:41 2002 +0100
@@ -264,7 +264,7 @@
 flyByHelpSpec
     <resource: #help>
 
-    |spec|
+    |spec hist|
 
     spec := super flyByHelpSpec addPairsFrom:#(
 
@@ -283,6 +283,12 @@
 #directoryBack
 'Directory Back'
 
+#directoryForward
+'Directory Forward'
+
+#directoryHistory
+'Directory'
+
 #copyFile
 'Copy File'
 
@@ -301,12 +307,6 @@
 #fileIn
 'File In'
 
-#directoryForward
-'Directory Forward'
-
-#directoryHistory
-'Directory'
-
 #fileHistory
 'File History'
 
@@ -327,7 +327,20 @@
 
 ).
 
+    hist := self directoryHistory.
+    hist notNil ifTrue:[
+        hist canForward ifTrue:[
+            spec at:#directoryForward put:(self classResources string:'Forward to: %1' with:hist nextForwardItem).
+        ].
+        hist canBackward ifTrue:[
+            spec at:#directoryBack put:(self classResources string:'Back to: %1' with:hist nextBackwardItem).
+        ].
+    ].
     ^ spec.
+
+    "
+     self flyByHelpSpec
+    "
 !
 
 helpSpec
@@ -1481,7 +1494,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.50 2002-11-18 10:09:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.51 2002-11-19 14:44:41 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!