little changes

original commit: 8be30687aba8fd701e478f1ae57ef57702c58a98
This commit is contained in:
Paul Steckler 2002-07-16 19:34:18 +00:00
parent 6e18cdd287
commit bb3454e20e

View File

@ -80,7 +80,8 @@
(send cb-frame show #f))))]) (send cb-frame show #f))))])
(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)
(send sd-button focus)))])
(define/override can-close? (define/override can-close?
(lambda () (shutdown-dialog) #f)) (lambda () (shutdown-dialog) #f))
(super-instantiate ()) (super-instantiate ())