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

fix another debugger interface bug

Browse Source 
svn: r9756
This commit is contained in:
Greg Cooper 2008-05-08 21:57:16 +00:00
parent 4b3aae56c6
commit 0d8b07d45e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -895,8 +895,8 @@
(send (send (get-frame) get-step-over-button) enable (can-step-over? frames status)) (send (send (get-frame) get-step-over-button) enable (can-step-over? frames status))
(send (send (get-frame) get-step-out-button) enable (can-step-out? frames status)) (send (send (get-frame) get-step-out-button) enable (can-step-out? frames status))
(send (send (get-frame) get-resume-button) enable #t) (send (send (get-frame) get-resume-button) enable #t)
(send (get-frame) register-stack-frames frames already-stopped?) (when (cons? frames)
(unless (empty? frames) (send (get-frame) register-stack-frames frames already-stopped?)
(send (get-frame) register-vars (list-ref frames (get-frame-num)))) (send (get-frame) register-vars (list-ref frames (get-frame-num))))
(send status-message set-label (send status-message set-label
(if (and (cons? status) top-of-stack?) (if (and (cons? status) top-of-stack?)