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

adjust the way the execute-callback is overridden so that this mixin

Browse Source 
cooperates better with other mixins that might do similar things
This commit is contained in:
Robby Findler 2011-08-24 11:01:11 -05:00
parent 4923e20994
commit 7dfffb3eb8
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/macro-debugger/tool.rkt
View File

@ -158,13 +158,11 @@
(callback (lambda _ (run-macro-stepper))))))
(define/public-final (run-macro-stepper)
(execute #t))
(send (get-interactions-text) enable-macro-debugging #t)
(send this execute-callback))
(define/override (execute-callback)
(execute #f))
(define/private (execute debugging?)
(send (get-interactions-text) enable-macro-debugging debugging?)
(send (get-interactions-text) enable-macro-debugging #f)
(super execute-callback))
;; Hide button for inappropriate languages