little changes
original commit: 8be30687aba8fd701e478f1ae57ef57702c58a98
This commit is contained in:
parent
6e18cdd287
commit
bb3454e20e
|
@ -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 ())
|
||||||
|
|
Loading…
Reference in New Issue
Block a user