suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pass the currently specified directory to get-directory

Browse Source 
in the multi-file search parameters dialog

related to PR 12978
This commit is contained in:
Robby Findler 2012-08-14 18:58:32 -05:00
parent 23aa31fc6f
commit b22f88eee1
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/drracket/private/multi-file-search.rkt
View File

@ -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))])