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

multi-file search bugfix

Browse Source 
(it now correctly restores the regexp vs string match preference)
This commit is contained in:
Robby Findler 2010-12-14 14:14:04 -06:00
parent 4881bc33f4
commit 80f573cc0e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -470,10 +470,13 @@
(define (recur-check-box-callback)
(preferences:set 'drracket:multi-file-search:recur? (send recur-check-box get-value)))
(define (methods-choice-callback)
(preferences:set 'drracket:multi-file-search:search-type (send methods-choice get-selection))
(define which (send methods-choice get-selection))
(preferences:set 'drracket:multi-file-search:search-type which)
(set-method which))
(define (set-method which)
(send active-method-panel active-child
(list-ref (send active-method-panel get-children)
(send methods-choice get-selection))))
which)))
(define (search-text-field-callback)
(preferences:set 'drracket:multi-file-search:search-string (send search-text-field get-value)))
(define (dir-button-callback)
@ -519,6 +522,9 @@
(send method-panel set-alignment 'left 'center)
(send filter-panel stretchable-height #f)
(send methods-choice set-selection (preferences:get 'drracket:multi-file-search:search-type))
(set-method (preferences:get 'drracket:multi-file-search:search-type))
(send search-text-field focus)
(send dialog show #t)