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

move the call that sets the focus later so it actually happens

Browse Source 
merge to the release branch, please
This commit is contained in:
Robby Findler 2013-04-14 18:45:07 -05:00
parent b8ab1334d9
commit c188be0441
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/drracket/private/unit.rkt
View File

@ -3033,7 +3033,15 @@ module browser threading seems wrong.
(set-color-status! (send definitions-text is-lexer-valid?)) (set-color-status! (send definitions-text is-lexer-valid?))
(send definitions-text end-edit-sequence) (send definitions-text end-edit-sequence)
(send interactions-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) (define/pubment (on-tab-change from-tab to-tab)
(let ([old-enabled (send from-tab get-enabled)] (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) (fix-up-canvas-numbers interactions-text vi #t)
(reflow-container) (reflow-container)
(set-visible-regions definitions-text vd) (set-visible-regions definitions-text vd)
(set-visible-regions interactions-text vi)) (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))]))
(define/private (pathname-equal? p1 p2) (define/private (pathname-equal? p1 p2)
(with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (with-handlers ([exn:fail:filesystem? (λ (x) #f)])