select the contents of the search string in the 'search in files' dialog

closes PR 12667
2012-03-31 12:12:12 -05:00 · 2012-03-31 12:12:12 -05:00 · 033536e746
commit 033536e746
parent f13d9a56d2
1 changed files with 2 additions and 0 deletions
--- a/collects/drracket/private/multi-file-search.rkt
+++ b/collects/drracket/private/multi-file-search.rkt
@ -528,6 +528,8 @@
    (set-method (preferences:get 'drracket:multi-file-search:search-type)) 
        
    (send search-text-field focus)
+    (let ([t (send search-text-field get-editor)])
+      (send t set-position 0 (send t last-position)))
    (send dialog show #t)
    
    (and