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

fix when check syntax is clearing out its error message editor

Browse Source 
closes PR 11751
This commit is contained in:
Robby Findler 2011-02-17 13:53:15 -06:00
parent 3cb3b9fa83
commit 1cf98d3033
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drracket/private/syncheck/gui.rkt
View File

@ -1033,15 +1033,17 @@ If the namespace does not, they are colored the unbound color.
(syncheck:clear-highlighting)) (syncheck:clear-highlighting))
(define/public (syncheck:clear-error-message) (define/public (syncheck:clear-error-message)
(when error-report-visible?
(set! error-report-visible? #f)
(send report-error-text clear-output-ports) (send report-error-text clear-output-ports)
(send report-error-text lock #f) (send report-error-text lock #f)
(send report-error-text delete/io 0 (send report-error-text last-position)) (send report-error-text delete/io 0 (send report-error-text last-position))
(send report-error-text lock #t) (send report-error-text lock #t)
(when (is-current-tab?) (when error-report-visible?
(cond
[(is-current-tab?)
(send (get-frame) hide-error-report) (send (get-frame) hide-error-report)
(send (get-frame) update-menu-status this)))) (send (get-frame) update-menu-status this)]
[else
(set! error-report-visible? #f)])))
(define/public (syncheck:clear-highlighting) (define/public (syncheck:clear-highlighting)
(let ([definitions (get-defs)]) (let ([definitions (get-defs)])