From 37d54316a2548fb5ff76f15cf0813123c3704231 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Mon, 1 Sep 2008 19:44:21 +0000 Subject: [PATCH] make the Run button hide the debugger controls again svn: r11510 --- collects/gui-debugger/debug-tool.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/gui-debugger/debug-tool.ss b/collects/gui-debugger/debug-tool.ss index 8a2df449fa..c728630945 100644 --- a/collects/gui-debugger/debug-tool.ss +++ b/collects/gui-debugger/debug-tool.ss @@ -1060,9 +1060,8 @@ (cond [(eq? tab (send tab get-master)) (set! debug? #t) - (send (get-current-tab) prepare-execution debug?) - (set! debug? #f) - (execute-callback)] + (execute-callback) + (set! debug? #f)] [else (already-debugging tab)]))) @@ -1070,6 +1069,7 @@ (let ([tab (get-current-tab)]) (cond [(eq? tab (send tab get-master)) + (send (get-current-tab) prepare-execution debug?) (super execute-callback)] [else (already-debugging tab)])))