diff --git a/typed-racket-more/typed/racket/draw.rkt b/typed-racket-more/typed/racket/draw.rkt index 5107683ff..7c0e6ad1a 100644 --- a/typed-racket-more/typed/racket/draw.rkt +++ b/typed-racket-more/typed/racket/draw.rkt @@ -142,6 +142,8 @@ #:smoothing -Font-Smoothing #f #:size-in-pixels? Univ #f #:hinting -Font-Hinting #f + #:feature-settings (-Immutable-HT -String -Integer) #f + #:font-list (-opt (-inst (parse-type #'Font-List%))) #f (-inst (parse-type #'Font%)))] [make-monochrome-bitmap (->* (list -Integer -Integer) (-opt -Bytes) (-inst -Bitmap%))] diff --git a/typed-racket-test/succeed/make-font.rkt b/typed-racket-test/succeed/make-font.rkt new file mode 100644 index 000000000..5cf26b791 --- /dev/null +++ b/typed-racket-test/succeed/make-font.rkt @@ -0,0 +1,8 @@ +#lang typed/racket/base + +(require typed/racket/class typed/racket/draw) + +(: get-cached-font (-> String Font-Weight Font-Style (Instance Font%))) +(define (get-cached-font font weight style) + (make-font #:size 1024.0 #:style style #:weight weight #:face font)) +