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

adjust the find-in-files initial config dialog to

Browse Source 
get the "global" framework keybindings

closes PR 13110
This commit is contained in:
Robby Findler 2012-09-13 00:29:34 -05:00
parent ac5965a1dc
commit c069fa67a9
1 changed files with 206 additions and 204 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -358,6 +358,8 @@
;; thread: eventspace main thread ;; thread: eventspace main thread
;; configures the search ;; configures the search
(define (configure-search) (define (configure-search)
(keymap:call/text-keymap-initializer
(λ ()
(define dialog (make-object dialog% (string-constant mfs-configure-search) (define dialog (make-object dialog% (string-constant mfs-configure-search)
#f 500 #f #f #f '(resize-border))) #f 500 #f #f #f '(resize-border)))
(define outer-files-panel (make-object vertical-panel% dialog '(border))) (define outer-files-panel (make-object vertical-panel% dialog '(border)))
@ -563,7 +565,7 @@
(and (send filter-check-box get-value) (and (send filter-check-box get-value)
(regexp (send filter-text-field get-value))) (regexp (send filter-text-field get-value)))
searcher searcher
(send search-text-field get-value)))) (send search-text-field get-value))))))
;; do-search : search-info text -> void ;; do-search : search-info text -> void