--- a/FileDialog.st	Mon Mar 23 10:58:52 2009 +0100
+++ b/FileDialog.st	Mon Mar 23 11:01:44 2009 +0100
@@ -654,34 +654,27 @@
     ].
 ! !
 
-!FileDialog class methodsFor:'active help'!
+!FileDialog class methodsFor:'help specs'!
 
 flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:FileDialog    
+    "
+
     <resource: #help>
 
-    |spec|
-
-    spec := AbstractFileBrowser flyByHelpSpec addPairsFrom:#(
-
-#fileBrowse
-'Browse'
-
-).
+    ^ FileBrowserV2 flyByHelpSpec addPairsFrom:#(
 
-"/    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.
+#openFileBrowser
+'Open a FileBrowser on the selected Directory'
 
-    "
-     self flyByHelpSpec
-    "
+)
 ! !
 
 !FileDialog class methodsFor:'interface specs'!
@@ -966,19 +959,6 @@
           )
          (MenuItem
             label: '-'
-            isVisible: browseVisibleHolder
-          )
-         (MenuItem
-            activeHelpKey: fileBrowse
-            label: 'Browse'
-            itemValue: doBrowseDirectory
-            translateLabel: true
-            isButton: true
-            isVisible: browseVisibleHolder
-            labelImage: (ResourceRetriever ToolbarIconLibrary fileBrowser24x24Icon)
-          )
-         (MenuItem
-            label: '-'
             isVisible: newDirectoryVisibilityHolder
           )
          (MenuItem
@@ -989,6 +969,19 @@
             isVisible: newDirectoryVisibilityHolder
             labelImage: (ResourceRetriever AbstractFileBrowser newDirectoryIcon)
           )
+         (MenuItem
+            label: '-'
+            isVisible: browseVisibleHolder
+          )
+         (MenuItem
+            activeHelpKey: openFileBrowser
+            label: 'Browse'
+            itemValue: doBrowseDirectory
+            translateLabel: true
+            isButton: true
+            isVisible: browseVisibleHolder
+            labelImage: (ResourceRetriever ToolbarIconLibrary startFileBrowserIcon)
+          )
          )
         nil
         nil
@@ -1225,7 +1218,7 @@
 
 browseVisibleHolder
     browseVisibleHolder isNil ifTrue:[
-        browseVisibleHolder := false asValue.
+        browseVisibleHolder := true "false" asValue.
     ].
     ^ browseVisibleHolder.
 !
@@ -1746,5 +1739,5 @@
 !FileDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.100 2008-08-21 21:15:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.101 2009-03-23 10:01:44 cg Exp $'
 ! !