From cc18191061737b3b4a4ef6c1d4a66e02c6075766 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jun 2013 21:46:21 -0500 Subject: [PATCH] adjust DrRacket to still start up if all of the splash-related images 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 --- collects/framework/splash.rkt | 3 --- 1 file changed, 3 deletions(-) diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt index 92303af4..e98e246b 100644 --- a/collects/framework/splash.rkt +++ b/collects/framework/splash.rkt @@ -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))