From e64abf30d20e399f67ef652a1231c817db17c45c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 4 Jan 2015 15:37:26 -0500 Subject: [PATCH] Support `#:unscaled?` in `save-file` for `Bitmap%`. Closes PR 14916. --- typed-racket-more/typed/racket/private/gui-types.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/typed-racket-more/typed/racket/private/gui-types.rkt b/typed-racket-more/typed/racket/private/gui-types.rkt index 19baec18..1fcaef1c 100644 --- a/typed-racket-more/typed/racket/private/gui-types.rkt +++ b/typed-racket-more/typed/racket/private/gui-types.rkt @@ -82,8 +82,8 @@ [make-dc (-> (Instance Bitmap-DC%))] [ok? (-> Boolean)] [save-file (case-> - ((U Path-String Output-Port) (U 'png 'jpeg 'xbm 'xpm 'bmp) -> Boolean) - ((U Path-String Output-Port) (U 'png 'jpeg 'xbm 'xpm 'bmp) Natural -> Boolean))] + ((U Path-String Output-Port) (U 'png 'jpeg 'xbm 'xpm 'bmp) [#:unscaled? Any] -> Boolean) + ((U Path-String Output-Port) (U 'png 'jpeg 'xbm 'xpm 'bmp) Natural [#:unscaled? Any] -> Boolean))] [set-argb-pixels (case-> (Real Real Exact-Nonnegative-Integer Exact-Nonnegative-Integer