diff --git a/gui-lib/framework/private/frame.rkt b/gui-lib/framework/private/frame.rkt index da43f874..98153732 100644 --- a/gui-lib/framework/private/frame.rkt +++ b/gui-lib/framework/private/frame.rkt @@ -2419,6 +2419,10 @@ (when focus? (send find-edit set-position 0 (send find-edit last-position)) (send (send find-edit get-canvas) focus)) + (let ([c (send find-edit get-canvas)]) + (when (and c (send c get-line-count)) + ;; try to update the canvas so that the font size is correctly accounted for + (send c set-editor (send c get-editor)))) (send find-edit end-edit-sequence))) (define/public (unhide-search-and-toggle-focus #:new-search-string-from-selection? [new-search-string-from-selection? #f])