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

account for long search strings when opening the results window

Browse Source 
in "search in files"

closes PR 12673
This commit is contained in:
Robby Findler 2012-04-05 07:29:40 -05:00
parent aa8b280f1c
commit 526b659616
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,8 +57,12 @@
;; opens a window and creates the thread that does the search ;; opens a window and creates the thread that does the search
(define (open-search-window search-info) (define (open-search-window search-info)
(define frame (new search-size-frame% (define frame (new search-size-frame%
[name (format (string-constant mfs-drscheme-multi-file-search-title) [name
(search-info-search-string search-info))])) (let ([fmt-s (string-constant mfs-drscheme-multi-file-search-title)])
(format
fmt-s
(gui-utils:trim-string (search-info-search-string search-info)
(- 200 (string-length fmt-s)))))]))
(define panel (make-object saved-vertical-resizable% (send frame get-area-container))) (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 button-panel (make-object horizontal-panel% (send frame get-area-container)))
(define open-button (make-object button% (string-constant mfs-open-file) button-panel (define open-button (make-object button% (string-constant mfs-open-file) button-panel