--- a/FileDialog.st	Mon Jul 16 09:54:08 2018 +0200
+++ b/FileDialog.st	Tue Jul 17 13:39:07 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -24,7 +22,7 @@
 		buttonPanelVisibleHolder appendLabelHolder browseVisibleHolder
 		selectedDeviceDrive listOfDeviceDrives rootDirectoryHolder
 		initialRoot verticalPanelView okLabelEnabled'
-	classVariableNames:'LastExtent'
+	classVariableNames:'LastExtent LastFindPattern'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
 !
@@ -1111,10 +1109,28 @@
               nil
             )
           )
+          (MenuItem
+            label: 'Find'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'File...'
+                  itemValue: doFindAndSelectFile
+                  translateLabel: true
+                )
+               )
+              nil
+              nil
+            )
+          )
          )
         nil
         nil
       )
+
+    "Modified: / 17-07-2018 / 12:44:28 / Claus Gittinger"
 !
 
 toolBarMenu
@@ -2165,6 +2181,19 @@
     ^ super doCancel.
 !
 
+doFindAndSelectFile
+    |searchPattern|
+
+    searchPattern := Dialog 
+                request:'Filename Pattern (match):'
+                initialAnswer:(LastFindPattern ? '*.txt').
+    searchPattern isEmptyOrNil ifTrue:[^ self].
+
+    treeBrowser findAndSelectFilesMatching:searchPattern.
+
+    "Created: / 17-07-2018 / 12:44:20 / Claus Gittinger"
+!
+
 doForward
 
     treeBrowser doForward.