From b22f88eee16d355f85567b7db68a2bc80eff9583 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 14 Aug 2012 18:58:32 -0500 Subject: [PATCH] pass the currently specified directory to get-directory in the multi-file search parameters dialog related to PR 12978 --- collects/drracket/private/multi-file-search.rkt | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/collects/drracket/private/multi-file-search.rkt b/collects/drracket/private/multi-file-search.rkt index 02ad7ef13a..bafd75838b 100644 --- a/collects/drracket/private/multi-file-search.rkt +++ b/collects/drracket/private/multi-file-search.rkt @@ -501,11 +501,15 @@ (define (search-text-field-callback) (preferences:set 'drracket:multi-file-search:search-string (send search-text-field get-value))) (define (dir-button-callback) - (let ([d (get-directory)]) - (when (and d - (directory-exists? d)) - (preferences:set 'drracket:multi-file-search:directory d) - (send dir-field set-value (path->string d))))) + (define old-d (string->path (send dir-field get-value))) + (define new-d (get-directory #f + #f + (and (directory-exists? old-d) + old-d))) + (when (and new-d + (directory-exists? new-d)) + (preferences:set 'drracket:multi-file-search:directory new-d) + (send dir-field set-value (path->string new-d)))) (define (get-files) (let ([dir (string->path (send dir-field get-value))])