From 6086973b8b0d8f0a601a8b3f92ea13894c8924c6 Mon Sep 17 00:00:00 2001
From: Paul Steckler <steck@stecksoft.com>
Date: Mon, 15 Jul 2002 22:15:48 +0000
Subject: [PATCH] can-close

original commit: 1cb2df4d064c7badd4f263d09a217809c9e5497b
---
 collects/help/help.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index cd522867..fc441e84 100644
--- 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% ()