From 1cf98d3033570bc0bec7fbef9e8856fdd69849ef Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 17 Feb 2011 13:53:15 -0600 Subject: [PATCH] fix when check syntax is clearing out its error message editor closes PR 11751 --- collects/drracket/private/syncheck/gui.rkt | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt index 7aaa7c7a70..a470914c1d 100644 --- a/collects/drracket/private/syncheck/gui.rkt +++ b/collects/drracket/private/syncheck/gui.rkt @@ -1033,15 +1033,17 @@ If the namespace does not, they are colored the unbound color. (syncheck:clear-highlighting)) (define/public (syncheck:clear-error-message) + (send report-error-text clear-output-ports) + (send report-error-text lock #f) + (send report-error-text delete/io 0 (send report-error-text last-position)) + (send report-error-text lock #t) (when error-report-visible? - (set! error-report-visible? #f) - (send report-error-text clear-output-ports) - (send report-error-text lock #f) - (send report-error-text delete/io 0 (send report-error-text last-position)) - (send report-error-text lock #t) - (when (is-current-tab?) - (send (get-frame) hide-error-report) - (send (get-frame) update-menu-status this)))) + (cond + [(is-current-tab?) + (send (get-frame) hide-error-report) + (send (get-frame) update-menu-status this)] + [else + (set! error-report-visible? #f)]))) (define/public (syncheck:clear-highlighting) (let ([definitions (get-defs)])