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

changed the default regexp filter for the search-in-files preference

Browse Source 
closes PR 10975
This commit is contained in:
Robby Findler 2010-06-13 18:19:09 -05:00
parent cf5c74a2ca
commit 3470d946ab
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/main.rkt
View File

@ -494,7 +494,7 @@
;; preferences initialization ;; preferences initialization
(drr:set-default 'drracket:multi-file-search:recur? #t boolean?) (drr:set-default 'drracket:multi-file-search:recur? #t boolean?)
(drr:set-default 'drracket:multi-file-search:filter? #t boolean?) (drr:set-default 'drracket:multi-file-search:filter? #t boolean?)
(drr:set-default 'drracket:multi-file-search:filter-string "\\.(ss|scm)$" string?) (drr:set-default 'drracket:multi-file-search:filter-regexp "\\.(rkt.?|ss|scm)$" string?)
(drr:set-default 'drracket:multi-file-search:search-string "" string?) (drr:set-default 'drracket:multi-file-search:search-string "" string?)
(drr:set-default 'drracket:multi-file-search:search-type (drr:set-default 'drracket:multi-file-search:search-type
1 1

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

@ -462,7 +462,7 @@
(preferences:set 'drracket:multi-file-search:filter? (send filter-check-box get-value)) (preferences:set 'drracket:multi-file-search:filter? (send filter-check-box get-value))
(send filter-text-field enable (send filter-check-box get-value))) (send filter-text-field enable (send filter-check-box get-value)))
(define (filter-text-field-callback) (define (filter-text-field-callback)
(preferences:set 'drracket:multi-file-search:filter-string (send filter-text-field get-value))) (preferences:set 'drracket:multi-file-search:filter-regexp (send filter-text-field get-value)))
(define (recur-check-box-callback) (define (recur-check-box-callback)
(preferences:set 'drracket:multi-file-search:recur? (send recur-check-box get-value))) (preferences:set 'drracket:multi-file-search:recur? (send recur-check-box get-value)))
@ -500,7 +500,7 @@
(send recur-check-box set-value (preferences:get 'drracket:multi-file-search:recur?)) (send recur-check-box set-value (preferences:get 'drracket:multi-file-search:recur?))
(send filter-check-box set-value (preferences:get 'drracket:multi-file-search:filter?)) (send filter-check-box set-value (preferences:get 'drracket:multi-file-search:filter?))
(send search-text-field set-value (preferences:get 'drracket:multi-file-search:search-string)) (send search-text-field set-value (preferences:get 'drracket:multi-file-search:search-string))
(send filter-text-field set-value (preferences:get 'drracket:multi-file-search:filter-string)) (send filter-text-field set-value (preferences:get 'drracket:multi-file-search:filter-regexp))
(send dir-field set-value (path->string (send dir-field set-value (path->string
(let ([p (preferences:get 'drracket:multi-file-search:directory)]) (let ([p (preferences:get 'drracket:multi-file-search:directory)])
(if (not p) (if (not p)