--- a/FileDialog.st	Mon Oct 18 12:37:40 2004 +0200
+++ b/FileDialog.st	Mon Oct 18 13:38:08 2004 +0200
@@ -653,28 +653,7 @@
 
     |spec|
 
-    spec := super flyByHelpSpec addPairsFrom:#(
-
-#directoryUp
-'Directory Up'
-
-#directoryBack
-'Directory Back'
-
-#directoryForward
-'Directory Forward'
-
-#directoryHistory
-'Directory'
-
-#fileHome
-'Home Directory'
-
-#fileGotoDefault
-'Default Directory (ST/X Start Directory)'
-
-#fileHistory
-'File History'
+    spec := AbstractFileBrowser flyByHelpSpec addPairsFrom:#(
 
 #fileBrowse
 'Browse'
@@ -952,6 +931,14 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary homeIcon)
           )
          (MenuItem
+            activeHelpKey: fileGotoBookmark
+            label: 'Bookmarks'
+            translateLabel: true
+            isButton: true
+            submenuChannel: gotoBookmarksMenuSpec
+            labelImage: (ResourceRetriever ToolbarIconLibrary directoryBookmarksIcon)
+          )
+         (MenuItem
             label: '-'
             isVisible: browseVisibleHolder
           )
@@ -1268,6 +1255,31 @@
     ^ filterHolder
 !
 
+gotoBookmarksMenuSpec
+    <resource: #programMenu>
+
+    |menu bookmarks|
+
+    menu := treeBrowser class emptyMenuSpec decodeAsLiteralArray.
+    menu findGuiResourcesIn:self.
+    menu receiver:self.
+
+    "/ add the bookmark items ...
+    bookmarks := treeBrowser class directoryBookmarks.
+    bookmarks notEmptyOrNil ifTrue:[
+        bookmarks do:[:dirName |
+            menu addItem:((MenuItem label:dirName asString value:[
+                (treeBrowser currentDirectories value includes:dirName) ifFalse:[
+                    treeBrowser setCurrentFileName:dirName.
+                ].
+            ])).
+        ].
+    ].
+    ^ menu
+
+    "Modified: / 17.8.1998 / 10:13:05 / cg"
+!
+
 listOfDeviceDrives
 
     listOfDeviceDrives isNil ifTrue:[
@@ -1613,5 +1625,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.79 2004-10-18 10:17:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.80 2004-10-18 11:38:08 cg Exp $'
 ! !