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

PR 9435

Browse Source 
svn: r10617
This commit is contained in:
Robby Findler 2008-07-05 14:08:38 +00:00
parent f830e4bc57
commit 6dcc576ce7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/syncheck.ss
View File

@ -75,6 +75,9 @@ If the namespace does not, they are colored the unbound color.
get-error-report-text get-error-report-text
get-error-report-visible? get-error-report-visible?
turn-off-error-report
turn-on-error-report
update-button-visibility/settings) update-button-visibility/settings)
(define tool@ (define tool@
@ -916,6 +919,7 @@ If the namespace does not, they are colored the unbound color.
(define/public (get-error-report-text) report-error-text) (define/public (get-error-report-text) report-error-text)
(define/public (get-error-report-visible?) error-report-visible?) (define/public (get-error-report-visible?) error-report-visible?)
(define/public (turn-on-error-report) (set! error-report-visible? #t)) (define/public (turn-on-error-report) (set! error-report-visible? #t))
(define/public (turn-off-error-report) (set! error-report-visible? #f))
(define/augment (clear-annotations) (define/augment (clear-annotations)
(inner (void) clear-annotations) (inner (void) clear-annotations)
(syncheck:clear-error-message) (syncheck:clear-error-message)
@ -1035,6 +1039,7 @@ If the namespace does not, they are colored the unbound color.
(define/public (hide-error-report) (define/public (hide-error-report)
(when (syncheck:error-report-visible?) (when (syncheck:error-report-visible?)
(send (get-current-tab) turn-off-error-report)
(send report-error-parent-panel change-children (send report-error-parent-panel change-children
(λ (l) (remq report-error-panel l))))) (λ (l) (remq report-error-panel l)))))