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

Adjusted the 'clear error highlight' menu item so it clears the coverage annotations too.

Browse Source
This commit is contained in:
Robby Findler 2010-09-21 13:34:34 -05:00
parent d4c68e7359
commit d55932e3df
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/drracket/private/unit.rkt
View File

@ -3612,13 +3612,18 @@ module browser threading seems wrong.
(parent language-specific-menu)
(callback
(λ (_1 _2)
(let ([ints (send (get-current-tab) get-ints)])
(send ints reset-error-ranges))))
(let* ([tab (get-current-tab)]
[ints (send tab get-ints)]
[defs (send tab get-defs)])
(send ints reset-error-ranges)
(send defs clear-test-coverage))))
(help-string (string-constant clear-error-highlight-item-help-string))
(demand-callback
(λ (item)
(let ([ints (send (get-current-tab) get-ints)])
(send item enable (send ints get-error-ranges))))))
(let* ([tab (get-current-tab)]
[ints (send tab get-ints)])
(send item enable (or (send ints get-error-ranges)
(send tab get-test-coverage-info-visible?)))))))
(make-object separator-menu-item% language-specific-menu)
(make-object menu:can-restore-menu-item%
(string-constant create-executable-menu-item-label)

4
collects/scribblings/drracket/menus.scrbl
View File

@ -294,7 +294,9 @@ limit on the amount of memory that a program running in
DrRacket is allowed to consume.}
@item{@defmenuitem{Clear Error Highlight} Removes the red
background that signals the source location of an error.}
background that signals the source location of an error.
Also removes the highlighting for uncovered (untested)
portions of the program.}
@item{@defmenuitem{Create Executable...} Creates a separate launcher
for running your program. See @secref["create-exe"] for more