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

re-unbreak DrRacket

Browse Source
This commit is contained in:
Robby Findler 2012-03-26 07:49:13 -05:00
parent 704c320131
commit bef9e11272
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drracket/private/drracket-normal.rkt
View File

@ -132,10 +132,10 @@
[(currently-the-weekend?) [(currently-the-weekend?)
weekend-bitmap-spec] weekend-bitmap-spec]
[else normal-bitmap-spec])) [else normal-bitmap-spec]))
(define the-splash-bitmap (if (path? the-bitmap-spec)
(read-bitmap the-bitmap-spec) (define the-splash-bitmap (and (path? the-bitmap-spec) (read-bitmap the-bitmap-spec)))
the-bitmap-spec)) (when the-splash-bitmap
(set-splash-char-observer drracket-splash-char-observer) (set-splash-char-observer drracket-splash-char-observer))
(when (eq? (system-type) 'macosx) (when (eq? (system-type) 'macosx)
(define initial-state (current-icon-state)) (define initial-state (current-icon-state))
@ -171,7 +171,8 @@
(set-icon next-state)) (set-icon next-state))
(loop next-state)))))) (loop next-state))))))
(start-splash the-splash-bitmap (start-splash (or the-splash-bitmap
the-bitmap-spec)
"DrRacket" "DrRacket"
700 700
#:allow-funny? #t #:allow-funny? #t