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

if we're highlighting something in the defs window, make sure the window is shown

Browse Source 
closes PR 11977
This commit is contained in:
Robby Findler 2011-06-17 11:13:11 +08:00
parent 7af058dcb2
commit 835762903c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/rep.rkt
View File

@ -751,6 +751,14 @@ TODO
(for-each (λ (loc) (send (srcloc-source loc) end-edit-sequence)) locs) (for-each (λ (loc) (send (srcloc-source loc) end-edit-sequence)) locs)
(when first-loc (when first-loc
(when (eq? first-file definitions-text)
;; when we're highlighting something in the defs window,
;; make sure it is visible
(let ([tlw (send first-file get-top-level-window)])
(when (is-a? tlw drracket:unit:frame<%>)
(send tlw ensure-defs-shown))))
(send first-file set-caret-owner (get-focus-snip) 'global))))) (send first-file set-caret-owner (get-focus-snip) 'global)))))
(define highlights-can-be-reset (make-parameter #t)) (define highlights-can-be-reset (make-parameter #t))