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

avoid filesystem-root-list call

Browse Source 
svn: r1602
This commit is contained in:
Matthew Flatt 2005-12-12 23:25:09 +00:00
parent 029e7e85a3
commit 812ea0e9ca
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/drscheme/private/multi-file-search.ss
View File

@ -89,13 +89,14 @@
(λ (x) (and (pair? x) (λ (x) (and (pair? x)
(number? (car x)) (number? (car x))
(number? (cdr x))))) (number? (cdr x)))))
(preferences:set-default 'drscheme:multi-file-search:directory (car (filesystem-root-list)) path?) (preferences:set-default 'drscheme:multi-file-search:directory #f
(lambda (x) (or (not x) (path? x))))
(preferences:set-un/marshall (preferences:set-un/marshall
'drscheme:multi-file-search:directory 'drscheme:multi-file-search:directory
(λ (v) (path->string v)) (λ (v) (path->string v))
(λ (p) (if (path-string? p) (λ (p) (if (path-string? p)
(string->path p) (string->path p)
(car (filesystem-root-list))))) #f)))
;; open-search-window : search-info -> void ;; open-search-window : search-info -> void
@ -553,7 +554,13 @@
(send filter-check-box set-value (preferences:get 'drscheme:multi-file-search:filter?)) (send filter-check-box set-value (preferences:get 'drscheme:multi-file-search:filter?))
(send search-text-field set-value (preferences:get 'drscheme:multi-file-search:search-string)) (send search-text-field set-value (preferences:get 'drscheme:multi-file-search:search-string))
(send filter-text-field set-value (preferences:get 'drscheme:multi-file-search:filter-string)) (send filter-text-field set-value (preferences:get 'drscheme:multi-file-search:filter-string))
(send dir-field set-value (path->string (preferences:get 'drscheme:multi-file-search:directory))) (send dir-field set-value (path->string
(let ([p (preferences:get 'drscheme:multi-file-search:directory)])
(if (not p)
(let ([p (car (filesystem-root-list))])
(preferences:set 'drscheme:multi-file-search:directory p)
p)
p))))
(send outer-method-panel stretchable-height #f) (send outer-method-panel stretchable-height #f)
(send outer-method-panel set-alignment 'left 'center) (send outer-method-panel set-alignment 'left 'center)