From bdc30d7dac3d27d56da089199278287a054a5b36 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 31 Jan 2011 16:02:17 -0600 Subject: [PATCH] monitor the font size preference in order to redo the one-line size computation for the search bar closes PR 11687 original commit: ce4bf97bde32032b0663c623d8ef1f2158a96fae --- collects/framework/private/frame.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt index 180e3d1e..468542ec 100644 --- a/collects/framework/private/frame.rkt +++ b/collects/framework/private/frame.rkt @@ -1748,7 +1748,15 @@ (for-each (λ (x) (insert x (last-position) (last-position))) (preferences:get pref-sym)) - (end-edit-sequence))) + (end-edit-sequence) + + (define pref-callback + (λ (p v) + (let ([c (get-canvas)]) + (when (and c (send c get-line-count)) + (send c set-editor (send c get-editor)))))) + + (preferences:add-callback 'framework:standard-style-list:font-size pref-callback #t))) (define find-text% (class find/replace-text% @@ -2312,6 +2320,7 @@ [line-count 1] [stretchable-height #f] [stretchable-width #t]))) + (define _3 (set! replace-canvas (new searchable-canvas% [style '(hide-hscroll hide-vscroll)] [vertical-inset 2]