can-close

original commit: 1cb2df4d064c7badd4f263d09a217809c9e5497b
2002-07-15 22:15:48 +00:00 · 2002-07-15 22:15:48 +00:00 · 6086973b8b
commit 6086973b8b
parent 88d66a2a98
1 changed files with 2 additions and 0 deletions
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@ -90,6 +90,8 @@
 			   (send main-sd-button enable #f)
 			   (send cb-frame center)
 			   (send cb-frame show #t)))])
+		     (define/override can-close? 
+		       (lambda () (shutdown-dialog) #f))
 		     (super-instantiate ())
 		     (set! panel
 			   (instantiate vertical-panel% ()