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

Support #:unscaled? in save-file for Bitmap%.

Browse Source 
Closes PR 14916.
This commit is contained in:
Sam Tobin-Hochstadt 2015-01-04 15:37:26 -05:00
parent a943d85375
commit e64abf30d2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typed-racket-more/typed/racket/private/gui-types.rkt
View File

@ -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