From 7dfffb3eb844634a10180a5c401022218531f593 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 24 Aug 2011 11:01:11 -0500 Subject: [PATCH] adjust the way the execute-callback is overridden so that this mixin cooperates better with other mixins that might do similar things --- collects/macro-debugger/tool.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/collects/macro-debugger/tool.rkt b/collects/macro-debugger/tool.rkt index 26d7cbdd5c..a7a910e8d8 100644 --- a/collects/macro-debugger/tool.rkt +++ b/collects/macro-debugger/tool.rkt @@ -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