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

Add button to dismiss PR.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-06-28 11:09:43 -04:00
parent b4fb55dd2e
commit d350c70c98
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -83,7 +83,7 @@
(loop (cdr report)))]))) (loop (cdr report)))])))
(set! highlights new-highlights)) (set! highlights new-highlights))
(define/private (clear-highlights) (define/public (clear-highlights)
(for ([h (in-list highlights)]) (for ([h (in-list highlights)])
(match h (match h
[`(,start ,end . ,rest ) [`(,start ,end . ,rest )
@ -156,6 +156,10 @@
[parent (send this get-area-container)] [parent (send this get-area-container)]
[stretchable-height #f])) [stretchable-height #f]))
(set! panel p) (set! panel p)
(new button%
[label "Clear"]
[parent panel]
[callback (lambda _ (send definitions clear-highlights))])
(for ([(l f) (in-pairs check-boxes)]) (for ([(l f) (in-pairs check-boxes)])
(new check-box% (new check-box%
[label l] [label l]