--- a/FileDialog.st	Wed May 01 11:47:10 2019 +0200
+++ b/FileDialog.st	Thu May 02 20:21:20 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2222,10 +2220,12 @@
                 request:'Filename Pattern (match):'
                 initialAnswer:(LastFindPattern ? '*.txt').
     searchPattern isEmptyOrNil ifTrue:[^ self].
-
-    treeBrowser findAndSelectFilesMatching:searchPattern.
+    self withWaitCursorDo:[
+        treeBrowser findAndSelectFilesMatching:searchPattern.
+    ].
 
     "Created: / 17-07-2018 / 12:44:20 / Claus Gittinger"
+    "Modified: / 02-05-2019 / 18:26:13 / Claus Gittinger"
 !
 
 doForward