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

make the Run button hide the debugger controls again

Browse Source 
svn: r11510
This commit is contained in:
Greg Cooper 2008-09-01 19:44:21 +00:00
parent cdcf8881eb
commit 37d54316a2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/gui-debugger/debug-tool.ss
View File

@ -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)])))