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

gui-debugger: add a close button

Browse Source
This commit is contained in:
Asumu Takikawa 2012-02-23 18:32:24 -05:00
parent eb032c2fef
commit 4f982fddfd
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/gui-debugger/debug-tool.rkt
View File

@ -10,6 +10,7 @@
"marks.rkt"
mrlib/switchable-button
mrlib/bitmap-label
mrlib/close-icon
"annotator.rkt"
"load-sandbox.rkt"
framework
@ -1325,6 +1326,10 @@
(stretchable-height #f)
(alignment '(center center))
(style '(border))))
;; add a close button to the debug panel
(new close-icon%
[parent debug-panel]
[callback (λ () (hide-debug))])
;; hide the debug panel and stack view initially
(send debug-parent-panel change-children (lambda (l) null))
(send debug-grandparent-panel change-children (lambda (l) (remq stack-view-panel l)))