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

adjust DrRacket to still start up if all of the splash-related images

Browse Source 
are broken

I don't know if this really closes PR 13794 but DrRacket does now
pass the error given in that PR.

original commit: 571bb5fb1ac7fdc16e851720c88e81efbb8456fb
This commit is contained in:
Robby Findler 2013-06-02 21:46:21 -05:00
parent f4e1cabfbb
commit cc18191061
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/splash.rkt
View File

@ -157,8 +157,6 @@
(let/ec k
(define (no-splash)
(set! splash-bitmap #f)
(set! splash-canvas #f)
(set! splash-eventspace #f)
(k (void)))
(send (get-gauge) set-range splash-max-width)
(send splash-tlw set-label splash-title)
@ -187,7 +185,6 @@
(set! splash-bitmap splash-draw-spec)])
(unless (send splash-bitmap ok?)
(eprintf "WARNING: bad bitmap ~s\n" splash-draw-spec)
(no-splash))
(send splash-canvas min-width (send splash-bitmap get-width))