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

Fix type for read-bitmap

Browse Source 
Closes PR 14729
This commit is contained in:
Asumu Takikawa 2014-10-08 01:57:22 -04:00
parent 10d957be1e
commit e50e2eaa57
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/typed-racket-pkgs/typed-racket-more/typed/racket/draw.rkt
View File

@ -54,6 +54,9 @@
Radial-Gradient% Radial-Gradient%
Region%)) Region%))
(begin-for-syntax
(define -LoadFileKind (parse-type #'LoadFileKind)))
(type-environment (type-environment
[the-brush-list (make-Instance (parse-type #'Brush-List%))] [the-brush-list (make-Instance (parse-type #'Brush-List%))]
[the-pen-list (make-Instance (parse-type #'Pen-List%))] [the-pen-list (make-Instance (parse-type #'Pen-List%))]
@ -62,8 +65,11 @@
(->optkey -PosInt -PosInt [Univ] #:backing-scale -Real #f (->optkey -PosInt -PosInt [Univ] #:backing-scale -Real #f
(make-Instance (parse-type #'Bitmap%)))] (make-Instance (parse-type #'Bitmap%)))]
[read-bitmap [read-bitmap
(->opt (Un -Pathlike) [-Symbol (Un (make-Instance (parse-type #'Color%)) (-val #f)) Univ] (->optkey (Un -Pathlike -Input-Port)
(make-Instance (parse-type #'Bitmap%)))] [-LoadFileKind (Un (make-Instance (parse-type #'Color%)) (-val #f)) Univ]
#:backing-scale -Real #f
#:try-@2x? Univ #f
(make-Instance (parse-type #'Bitmap%)))]
[make-color [make-color
(->optkey -Byte -Byte -Byte (->optkey -Byte -Byte -Byte
[-Real] [-Real]