From bb3454e20eeff23fbd25748d37665209fd30342e Mon Sep 17 00:00:00 2001 From: Paul Steckler Date: Tue, 16 Jul 2002 19:34:18 +0000 Subject: [PATCH] little changes original commit: 8be30687aba8fd701e478f1ae57ef57702c58a98 --- collects/help/help.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/help/help.ss b/collects/help/help.ss index eeb3df67..7157626d 100644 --- a/collects/help/help.ss +++ b/collects/help/help.ss @@ -80,7 +80,8 @@ (send cb-frame show #f))))]) (send main-sd-button enable #f) (send cb-frame center) - (send cb-frame show #t)))]) + (send cb-frame show #t) + (send sd-button focus)))]) (define/override can-close? (lambda () (shutdown-dialog) #f)) (super-instantiate ())