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
(cherry picked from commit c188be0441)
This commit is contained in:
Robby Findler 2013-04-14 18:45:07 -05:00 committed by Ryan Culpepper
parent 194100310e
commit a7806102f3
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?))
(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)])