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

DrRacket: enable @2x bitmaps for tool icons

Browse Source 
original commit: 037a211f9a29d02a4e461dd561879790e4280a99
This commit is contained in:
Matthew Flatt 2014-01-03 09:00:41 -07:00
parent 9b2b38d74d
commit de05ac2f1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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)