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

raco exe --ico: replace icon set wholesale

Browse Source 
Use exactly the icons in the given icon file for the executable,
instead of coercing to the sizes and depths already in the executable.
This commit is contained in:
Matthew Flatt 2015-08-24 10:14:27 -06:00
parent e2b27be099
commit 96292cdf27
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-doc/scribblings/raco/exe-api.scrbl
View File

@ -187,11 +187,11 @@ currently supported keys are as follows:
@filepath{.icns}) to use for the executable's desktop icon.}
@item{@racket['ico] (Windows) : An icon file path (suffix
@filepath{.ico}) to use for the executable's desktop icon;
the executable will have 16x16, 32x32, and 48x48 icons at
4-bit, 8-bit, and 32-bit (RGBA) depths; the icons are copied
and generated from any 16x16, 32x32, and 48x48 icons in the
@filepath{.ico} file.}
@filepath{.ico}) to use for the executable's desktop icon.
@history[#:changed "6.2.900.10" @elem{All icons in the
executable are replaced with icons from the file,
instead of setting only certain sizes and depths.}]}
@item{@racket['creator] (Mac OS X) : Provides a 4-character string
to use as the application signature.}

2
racket/collects/compiler/embed.rkt
View File

@ -1743,7 +1743,7 @@
(let ([m (and (eq? 'windows (system-type))
(assq 'ico aux))])
(when m
(replace-icos (read-icos (cdr m)) dest-exe)))
(replace-all-icos (read-icos (cdr m)) dest-exe)))
(let ([m (and (eq? 'windows (system-type))
(assq 'subsystem aux))])
(when m