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

Refocus window on clicking the error source.

Browse Source
This commit is contained in:
Kathy Gray 2010-08-23 14:37:43 +01:00
parent a4e7ef3594
commit d3cab0a2ca
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/test-engine/test-display.scm
View File

@ -423,7 +423,15 @@
(list (make-srcloc src-editor
line
column
position span)) #f))))
position span)) #f)
(let ([frame (send current-tab get-frame)])
(unless (send current-tab is-current-tab?)
(let loop ([tabs (send frame get-tabs)] [i 0])
(unless (null? tabs)
(if (eq? (car tabs) current-tab)
(send frame change-to-nth-tab i)
(loop (cdr tabs) (add1 i))))))
(send frame show #t)))))
(queue-callback highlight))])))
(define (highlight-check-error srcloc src-editor)