From a7806102f3e6029053e44e0d10fd1f0f08b1cf09 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 14 Apr 2013 18:45:07 -0500 Subject: [PATCH] move the call that sets the focus later so it actually happens merge to the release branch, please (cherry picked from commit c188be044158c7a3b2e02a2d592006d90ff1047c) --- collects/drracket/private/unit.rkt | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index a0def432e4..2620a5872b 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -3033,7 +3033,15 @@ module browser threading seems wrong. (set-color-status! (send definitions-text is-lexer-valid?)) (send definitions-text end-edit-sequence) (send interactions-text end-edit-sequence) - (end-container-sequence)))) + (end-container-sequence) + + (case (send current-tab get-focus-d/i) + [(defs) + (send (car definitions-canvases) focus) + (set-text-to-search (send (car definitions-canvases) get-editor))] + [(ints) + (send (car interactions-canvases) focus) + (set-text-to-search (send (car interactions-canvases) get-editor))])))) (define/pubment (on-tab-change from-tab to-tab) (let ([old-enabled (send from-tab get-enabled)] @@ -3160,14 +3168,7 @@ module browser threading seems wrong. (fix-up-canvas-numbers interactions-text vi #t) (reflow-container) (set-visible-regions definitions-text vd) - (set-visible-regions interactions-text vi)) - (case (send current-tab get-focus-d/i) - [(defs) - (send (car definitions-canvases) focus) - (set-text-to-search (send (car definitions-canvases) get-editor))] - [(ints) - (send (car interactions-canvases) focus) - (set-text-to-search (send (car interactions-canvases) get-editor))])) + (set-visible-regions interactions-text vi))) (define/private (pathname-equal? p1 p2) (with-handlers ([exn:fail:filesystem? (λ (x) #f)])