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

multi-file search tweaks:

Browse Source 
- added the search string to the title of the window
 - made the default preference includes scrbl files
 - adjusted the title of the window to put drracket last
This commit is contained in:
Robby Findler 2010-12-12 07:31:52 -06:00
parent 3424e1b1df
commit 29797e67bd
15 changed files with 24 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -537,7 +537,7 @@
;; preferences initialization
(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-regexp "\\.(rkt.?|ss|scm)$" string?)
(drr:set-default 'drracket:multi-file-search:filter-regexp "\\.(rkt.?|scrbl|ss|scm)$" string?)
(drr:set-default 'drracket:multi-file-search:search-string "" string?)
(drr:set-default 'drracket:multi-file-search:search-type
1

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

@ -33,8 +33,9 @@
;; these are the available searches
(define-struct search-type (label make-searcher params))
;; search-info = (make-search-info string boolean (union #f regexp) search-type)
(define-struct search-info (dir recur? filter searcher))
;; search-info = (make-search-info string boolean (union #f regexp) search-type string)
;; the search-string field is only informative; not used for actual searching
(define-struct search-info (dir recur? filter searcher search-string))
;; search-types : (listof search-type)
(define search-types
@ -54,7 +55,9 @@
;; thread: eventspace main thread
;; opens a window and creates the thread that does the search
(define (open-search-window search-info)
(define frame (make-object search-size-frame% (string-constant mfs-drscheme-multi-file-search)))
(define frame (new search-size-frame%
[name (format (string-constant mfs-drscheme-multi-file-search-title)
(search-info-search-string search-info))]))
(define panel (make-object saved-vertical-resizable% (send frame get-area-container)))
(define button-panel (make-object horizontal-panel% (send frame get-area-container)))
(define open-button (make-object button% (string-constant mfs-open-file) button-panel
@ -526,7 +529,8 @@
(send recur-check-box get-value)
(and (send filter-check-box get-value)
(regexp (send filter-text-field get-value)))
searcher)))
searcher
(send search-text-field get-value))))
;; do-search : search-info text -> void

2
collects/string-constants/danish-string-constants.rkt
View File

@ -487,7 +487,7 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "Rekursivt i undermapper")
(mfs-regexp-filename-filter "Regexp filnavnsfilter")
(mfs-search-string "Søgestreng")
(mfs-drscheme-multi-file-search "DrRacket - Søgning i flere filer") ;; results window and error message title
(mfs-drscheme-multi-file-search "Søgning i flere filer - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" er ikke en mappe")
(mfs-open-file "Åbn fil")
(mfs-stop-search "Stop søgning")

2
collects/string-constants/dutch-string-constants.rkt
View File

@ -287,7 +287,7 @@
(mfs-recur-over-subdirectories "Recursief in mappen")
(mfs-regexp-filename-filter "Regexp filename filter")
(mfs-search-string "Zoektekst")
(mfs-drscheme-multi-file-search "DrRacket - Multi File Search") ;; results window and error message title
(mfs-drscheme-multi-file-search "Multi File Search - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" is geen map")
(mfs-open-file "Bestand openen")
(mfs-stop-search "Stop met zoeken")

5
collects/string-constants/english-string-constants.rkt
View File

@ -549,14 +549,15 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "Recur over subdirectories")
(mfs-regexp-filename-filter "Regexp filename filter")
(mfs-search-string "Search string")
(mfs-drscheme-multi-file-search "DrRacket - Multi File Search") ;; results window and error message title
(mfs-drscheme-multi-file-search "Multi File Search - DrRacket") ;; error message window title
(mfs-not-a-dir "\"~a\" is not a directory")
(mfs-open-file "Open File")
(mfs-stop-search "Stop Search")
(mfs-case-sensitive-label "Case sensitive")
(mfs-no-matches-found "No matches found.")
(mfs-search-interrupted "Search aborted.")
(mfs-drscheme-multi-file-search-title "Multi File Search for \"~a\" - DrRacket") ;; the ~a format specifier is filled in with the search string
;;; reverting a file
(are-you-sure-revert
"Are you sure that you want to revert this file? This change cannot be undone.")

2
collects/string-constants/french-string-constants.rkt
View File

@ -539,7 +539,7 @@
(mfs-recur-over-subdirectories "Récursion dans les sous-répertoires")
(mfs-regexp-filename-filter "Expression régulière pour filtrer les noms de fichiers")
(mfs-search-string "Chercher la chaîne de caractères")
(mfs-drscheme-multi-file-search "DrRacket - Recherche dans des fichiers multiples") ;; results window and error message title
(mfs-drscheme-multi-file-search "Recherche dans des fichiers multiples - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" n'est pas un répertoire")
(mfs-open-file "Ouvrir le fichier")
(mfs-stop-search "Stopper la recherche")

2
collects/string-constants/german-string-constants.rkt
View File

@ -448,7 +448,7 @@
(mfs-recur-over-subdirectories "In Unterverzeichnisse abtauchen")
(mfs-regexp-filename-filter "Regulärer Ausdruck Dateinamen-Filter")
(mfs-search-string "Zeichenkette suchen")
(mfs-drscheme-multi-file-search "DrRacket - Suche in mehreren Dateien") ;; results window and error message title
(mfs-drscheme-multi-file-search "Suche in mehreren Dateien - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" ist kein Verzeichnis")
(mfs-open-file "Datei öffnen")
(mfs-stop-search "Suche stoppen")

2
collects/string-constants/japanese-string-constants.rkt
View File

@ -534,7 +534,7 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "サブディレクトリ内を再帰的に検索")
(mfs-regexp-filename-filter "ファイル名を正規表現でフィルタ")
(mfs-search-string "検索語")
(mfs-drscheme-multi-file-search "DrRacket - 複数ファイルからの検索") ;; results window and error message title
(mfs-drscheme-multi-file-search "複数ファイルからの検索 - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" はディレクトリではありません")
(mfs-open-file "ファイルを開く")
(mfs-stop-search "検索を中止")

2
collects/string-constants/korean-string-constants.rkt
View File

@ -464,7 +464,7 @@
(mfs-recur-over-subdirectories "하위디렉토리도 검색")
(mfs-regexp-filename-filter "다음 정규표현식에 맞는 파일")
(mfs-search-string "찾을 문자열")
(mfs-drscheme-multi-file-search "DrRacket - 다중 파일 검색") ;; results window and error message title
(mfs-drscheme-multi-file-search "다중 파일 검색 - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" 는 디렉토리가 아닙니다")
(mfs-open-file "파일 열기")
(mfs-stop-search "검색 중지")

2
collects/string-constants/portuguese-string-constants.rkt
View File

@ -487,7 +487,7 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "Recursão sobre subdirectorias")
(mfs-regexp-filename-filter "Expressão Regular para filtro do nome do ficheiro")
(mfs-search-string "String de Procura")
(mfs-drscheme-multi-file-search "DrRacket - Procura Multi Ficheiro") ;; results window and error message title
(mfs-drscheme-multi-file-search "Procura Multi Ficheiro - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" não é um directorio")
(mfs-open-file "Abrir Ficheiro")
(mfs-stop-search "Parar Procura")

2
collects/string-constants/russian-string-constants.rkt
View File

@ -539,7 +539,7 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "Искать во вложенных каталогах")
(mfs-regexp-filename-filter "Фильтровать имена файлов по регулярных выражениях")
(mfs-search-string "Искать строки")
(mfs-drscheme-multi-file-search "DrRacket - многофайловый поиск") ;; results window and error message title
(mfs-drscheme-multi-file-search "многофайловый поиск - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" не каталог")
(mfs-open-file "Открыть файл")
(mfs-stop-search "Остановить поиск")

2
collects/string-constants/simplified-chinese-string-constants.rkt
View File

@ -451,7 +451,7 @@
(mfs-recur-over-subdirectories "包含子目录")
(mfs-regexp-filename-filter "文件名筛选(正则表达式)")
(mfs-search-string "查找字符串")
(mfs-drscheme-multi-file-search "DrRacket——多文件查找") ;; results window and error message title
(mfs-drscheme-multi-file-search "多文件查找——DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\"不是目录")
(mfs-open-file "打开文件")
(mfs-stop-search "停止搜索")

2
collects/string-constants/spanish-string-constants.rkt
View File

@ -380,7 +380,7 @@
(mfs-recur-over-subdirectories "Recurrir sobre subdirectorios")
(mfs-regexp-filename-filter "Filtro de nombres de archivo con expresiones regulares")
(mfs-search-string "Buscar cadena")
(mfs-drscheme-multi-file-search "DrRacket - Búsqueda Multi Archivo")
(mfs-drscheme-multi-file-search "Búsqueda Multi Archivo - DrRacket")
(mfs-not-a-dir "\"~a\" no es un directorio")
(mfs-open-file "Abrir Archivo")
(mfs-stop-search "Detener Búsqueda")

2
collects/string-constants/traditional-chinese-string-constants.rkt
View File

@ -450,7 +450,7 @@
(mfs-recur-over-subdirectories "包含子目录")
(mfs-regexp-filename-filter "文件名筛选(正则表达式)")
(mfs-search-string "查找字符串")
(mfs-drscheme-multi-file-search "DrRacket——多文件查找") ;; results window and error message title
(mfs-drscheme-multi-file-search "多文件查找——DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\"不是目录")
(mfs-open-file "打开文件")
(mfs-stop-search "停止搜索")

2
collects/string-constants/ukrainian-string-constants.rkt
View File

@ -539,7 +539,7 @@ please adhere to these guidelines:
(mfs-recur-over-subdirectories "Шукати у вкладених каталогах")
(mfs-regexp-filename-filter "Фільтрувати імена файлів за регулярними виразами")
(mfs-search-string "Шукати рядки")
(mfs-drscheme-multi-file-search "DrRacket - багатофайловый пошук") ;; results window and error message title
(mfs-drscheme-multi-file-search "багатофайловый пошук - DrRacket") ;; results window and error message title
(mfs-not-a-dir "\"~a\" не каталог")
(mfs-open-file "Відкрити файл")
(mfs-stop-search "Зупинити пошук")