From 1f5c5144f91f9f1b3132a28b88a339c0c945e66b Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Wed, 13 Jan 2016 07:56:01 -0500 Subject: [PATCH] Fix type of `make-brush` Closes issue #104 Closes PR 14931 --- typed-racket-more/typed/racket/draw.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/typed-racket-more/typed/racket/draw.rkt b/typed-racket-more/typed/racket/draw.rkt index a1b2b394..f2684d72 100644 --- a/typed-racket-more/typed/racket/draw.rkt +++ b/typed-racket-more/typed/racket/draw.rkt @@ -116,6 +116,7 @@ [make-brush (->key #:color (Un -String (-inst -Color%)) #f #:style -Brush-Style #f + #:stipple (-opt (-inst (parse-type #'Bitmap%))) #f #:gradient (Un (-val #f) (-inst (parse-type #'Linear-Gradient%)) (-inst (parse-type #'Radial-Gradient%)))