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

DrRacket: enable @2x bitmaps for tool icons

Browse Source
This commit is contained in:
Matthew Flatt 2014-01-03 09:00:41 -07:00
parent 90a534f304
commit 037a211f9a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/drracket-pkgs/drracket/drracket/private/tools.rkt
View File

@ -354,7 +354,7 @@
(let/ec k
(let ([bitmap
(with-handlers ([exn:fail:filesystem? (lambda (x) (k (void)))])
(make-object bitmap% bitmap-path 'unknown/mask))])
(read-bitmap bitmap-path #:try-@2x? #t))])
(unless (and (is-a? bitmap bitmap%)
(send bitmap ok?))
(k #f))

4
pkgs/gui-pkgs/gui-lib/framework/splash.rkt
View File

@ -189,7 +189,7 @@
(send splash-canvas min-width (send splash-bitmap get-width))
(send splash-canvas min-height (send splash-bitmap get-height))
(set! splash-cache-bitmap (make-object bitmap%
(set! splash-cache-bitmap (make-screen-bitmap
(send splash-bitmap get-width)
(send splash-bitmap get-height)))]
[(and (vector? splash-draw-spec)
@ -199,7 +199,7 @@
(set! splash-paint-callback (vector-ref splash-draw-spec 0))
(send splash-canvas min-width (vector-ref splash-draw-spec 1))
(send splash-canvas min-height (vector-ref splash-draw-spec 2))
(set! splash-cache-bitmap (make-object bitmap%
(set! splash-cache-bitmap (make-screen-bitmap
(vector-ref splash-draw-spec 1)
(vector-ref splash-draw-spec 2)))]
[(not splash-draw-spec)