suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

made the splash screen always be a dialog box

Browse Source 
svn: r17810
This commit is contained in:
Robby Findler 2010-01-25 12:39:38 +00:00
parent fee5ed923d
commit aee10699ae
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/framework/splash.ss
View File

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