From 526b65961687c9c57b85ffbb1843bbc6e5f99d61 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 5 Apr 2012 07:29:40 -0500 Subject: [PATCH] account for long search strings when opening the results window in "search in files" closes PR 12673 --- collects/drracket/private/multi-file-search.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/multi-file-search.rkt b/collects/drracket/private/multi-file-search.rkt index 5e5b1832a7..3523a05253 100644 --- a/collects/drracket/private/multi-file-search.rkt +++ b/collects/drracket/private/multi-file-search.rkt @@ -57,8 +57,12 @@ ;; opens a window and creates the thread that does the search (define (open-search-window search-info) (define frame (new search-size-frame% - [name (format (string-constant mfs-drscheme-multi-file-search-title) - (search-info-search-string search-info))])) + [name + (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 button-panel (make-object horizontal-panel% (send frame get-area-container))) (define open-button (make-object button% (string-constant mfs-open-file) button-panel