made the splash screen always be a dialog box

svn: r17810

original commit: aee10699ae0fec6585b82fe25496a4c6770d1a7d
This commit is contained in:
Robby Findler 2010-01-25 12:39:38 +00:00
parent bb31704278
commit a2d6d65164

View File

@ -280,19 +280,11 @@
(define quit-on-close? #t)
(define splash-tlw%
(case (system-type)
[(unix)
(class dialog%
(define/augment (on-close)
(when quit-on-close?
(exit)))
(super-new))]
[else
(class frame%
(define/augment (on-close)
(when quit-on-close?
(exit)))
(super-new [style '(no-resize-border)]))]))
(class dialog%
(define/augment (on-close)
(when quit-on-close?
(exit)))
(super-new)))
(define splash-canvas%
(class canvas%