From 96292cdf27a40f03b5edc6e203aa08326082bc46 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 24 Aug 2015 10:14:27 -0600 Subject: [PATCH] raco exe --ico: replace icon set wholesale Use exactly the icons in the given icon file for the executable, instead of coercing to the sizes and depths already in the executable. --- pkgs/racket-doc/scribblings/raco/exe-api.scrbl | 10 +++++----- racket/collects/compiler/embed.rkt | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/pkgs/racket-doc/scribblings/raco/exe-api.scrbl b/pkgs/racket-doc/scribblings/raco/exe-api.scrbl index a5a2ce7853..3c908dc7b9 100644 --- a/pkgs/racket-doc/scribblings/raco/exe-api.scrbl +++ b/pkgs/racket-doc/scribblings/raco/exe-api.scrbl @@ -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.} diff --git a/racket/collects/compiler/embed.rkt b/racket/collects/compiler/embed.rkt index 84c787032c..6f39e74d70 100644 --- a/racket/collects/compiler/embed.rkt +++ b/racket/collects/compiler/embed.rkt @@ -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