From 5f8dcab17642706a91fde291e263c28ea66f4926 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Fri, 17 Aug 2007 02:02:08 +0000 Subject: [PATCH] make debugger's execute-callback nullary svn: r7107 --- collects/mztake/debug-tool.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mztake/debug-tool.ss b/collects/mztake/debug-tool.ss index 66d984aa8f..9e88d085d8 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/mztake/debug-tool.ss @@ -950,16 +950,18 @@ (define current-language-settings #f) (define control-panel #f) + (define debug? #f) (define/public (set-mouse-over-msg msg) (when (not (string=? msg (send mouse-over-message get-label))) (send mouse-over-message set-label msg))) (define/override execute-callback - (opt-lambda ([debug #f]) + (lambda () (let* ([tab (get-current-tab)]) (if (eq? tab (send tab get-master)) (begin - (send (get-current-tab) prepare-execution debug) + (send (get-current-tab) prepare-execution debug?) + (set! debug? #f) (super execute-callback)) (message-box "Message from Debugger" @@ -1006,7 +1008,7 @@ (string-constant debug-tool-button-name) (build-path (collection-path "mztake" "icons") "icon-small.png")) this) (make-object vertical-pane% (get-button-panel)) - (lambda (button evt) (execute-callback #t)))) + (lambda (button evt) (set! debug? #t) (execute-callback)))) (define pause-button (instantiate button% ()