Fix type of make-brush

Closes issue #104 Closes PR 14931
2016-01-13 07:56:01 -05:00 · 2016-01-13 07:56:01 -05:00 · 1f5c5144f9
commit 1f5c5144f9
parent 1d367003e9
1 changed files with 1 additions and 0 deletions
--- 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%)))