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

detect when tracing:reset doesn't need to happen and skip it

Browse Source
This commit is contained in:
Robby Findler 2012-11-11 07:19:13 -06:00
parent 90f6f1b300
commit 2626824aef
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/drracket/private/tracing.rkt
View File

@ -103,13 +103,17 @@
(define any-results? #f)
(define/public (get-any-results?) any-results?)
(define ever-been-reset? #f)
(define/public (tracing:reset)
(set! any-results? #f)
(send show-tracing-text lock #f)
(send show-tracing-text erase)
(send show-tracing-text auto-wrap #t)
(send show-tracing-text insert (string-constant tracing-tracing-nothing-to-show))
(send show-tracing-text lock #t))
(when (or any-results?
(not ever-been-reset?))
(set! any-results? #f)
(set! ever-been-reset? #t)
(send show-tracing-text lock #f)
(send show-tracing-text erase)
(send show-tracing-text auto-wrap #t)
(send show-tracing-text insert (string-constant tracing-tracing-nothing-to-show))
(send show-tracing-text lock #t)))
(define show-tracing-text (new text:hide-caret/selection%))
(define/public (get-tracing-text) show-tracing-text)