suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

can-close

Browse Source 
original commit: 1cb2df4d064c7badd4f263d09a217809c9e5497b
This commit is contained in:
Paul Steckler 2002-07-15 22:15:48 +00:00
parent 88d66a2a98
commit 6086973b8b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/help.ss
View File

@ -90,6 +90,8 @@
(send main-sd-button enable #f) (send main-sd-button enable #f)
(send cb-frame center) (send cb-frame center)
(send cb-frame show #t)))]) (send cb-frame show #t)))])
(define/override can-close?
(lambda () (shutdown-dialog) #f))
(super-instantiate ()) (super-instantiate ())
(set! panel (set! panel
(instantiate vertical-panel% () (instantiate vertical-panel% ()