Racket splash/about logo @2x

pkgs/drracket-pkgs/drracket/drracket/private/app.rkt

@@ -76,12 +76,13 @@
     (super-new)))
 
 (define (get-plt-bitmap)
-  (make-object bitmap%
-    (build-path (collection-file-path
-                 (if (< (get-display-depth) 8)
-                     "pltbw.gif"
-                     "plt-logo-red-shiny.png")
-                 "icons"))))
+  (read-bitmap
+   (build-path (collection-file-path
+                (if (< (get-display-depth) 8)
+                    "pltbw.gif"
+                    "plt-logo-red-shiny.png")
+                "icons"))
+   #:try-@2x? #t))
 
 
 

pkgs/drracket-pkgs/drracket/drracket/private/drracket-normal.rkt

@@ -168,7 +168,7 @@
 
 (define (read-bitmap/no-crash fn)
   (with-handlers ((exn:fail? (λ (x) (make-object bitmap% "dne.png"))))
-    (read-bitmap fn)))
+    (read-bitmap fn #:try-@2x? #t)))
 
 (define the-splash-bitmap (and (path? the-bitmap-spec)
                                (read-bitmap/no-crash the-bitmap-spec)))

pkgs/gui-pkgs/gui-lib/framework/splash.rkt

@@ -180,7 +180,7 @@
              (eprintf "WARNING: bitmap path ~s not found\n" splash-draw-spec)
              (no-splash))
            
-           (set! splash-bitmap (make-object bitmap% splash-draw-spec))]
+           (set! splash-bitmap (read-bitmap splash-draw-spec #:try-@2x? #t))]
           [else
            (set! splash-bitmap splash-draw-spec)])