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

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

Browse Source 
This reverts commit 7dfffb3eb8.
This commit is contained in:
Robby Findler 2011-08-24 18:06:28 -05:00
parent 5a30aa89eb
commit ee17f7ce47
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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