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

fixed PR 7977

Browse Source 
svn: r3225
This commit is contained in:
Robby Findler 2006-06-04 23:04:03 +00:00
parent a457e2f054
commit 7223a42ec3
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/drscheme/private/debug.ss
View File

@ -700,7 +700,7 @@ profile todo:
set-test-coverage-info set-test-coverage-info
get-test-coverage-info)) get-test-coverage-info))
(define test-coverage-frame<%> (define test-coverage-tab<%>
(interface () (interface ()
show-test-coverage-annotations ;; hash-table (union #f style) (union #f style) boolean -> void show-test-coverage-annotations ;; hash-table (union #f style) (union #f style) boolean -> void
get-test-coverage-info-visible? get-test-coverage-info-visible?
@ -757,7 +757,7 @@ profile todo:
#t])) #t]))
#t)) #t))
(define/private (clear-test-coverage) (define/public (clear-test-coverage)
(let ([tab (get-tab)]) (let ([tab (get-tab)])
(when (send tab get-test-coverage-info-visible?) (when (send tab get-test-coverage-info-visible?)
(send tab clear-test-coverage-display) (send tab clear-test-coverage-display)
@ -798,7 +798,7 @@ profile todo:
(define erase-test-coverage-style-delta (make-object style-delta% 'change-normal-color)) (define erase-test-coverage-style-delta (make-object style-delta% 'change-normal-color))
(define test-coverage-tab-mixin (define test-coverage-tab-mixin
(mixin (drscheme:rep:context<%>) (test-coverage-frame<%>) (mixin (drscheme:rep:context<%> drscheme:unit:tab<%>) (test-coverage-tab<%>)
(field [internal-clear-test-coverage-display #f]) (field [internal-clear-test-coverage-display #f])
@ -969,9 +969,10 @@ profile todo:
(when locked? (send txt lock #t))) (when locked? (send txt lock #t)))
(send txt end-edit-sequence))))))))) (send txt end-edit-sequence)))))))))
(inherit get-defs)
(define/augment (clear-annotations) (define/augment (clear-annotations)
(inner (void) clear-annotations) (inner (void) clear-annotations)
(clear-test-coverage-display)) (send (get-defs) clear-test-coverage))
(super-new))) (super-new)))