racket/snip: contract repairs

This commit is contained in:
Matthew Flatt 2013-02-14 19:49:42 -07:00
parent 6a218e196a
commit 655444ada9

View File

@ -62,15 +62,15 @@
(get-size-in-pixels-off (->m boolean?))
(get-size-in-pixels-on (->m boolean?))
(get-size-mult (->m real?))
(get-smoothing-off (->m font-smoothing/c))
(get-style-off (->m font-style/c))
(get-style-on (->m font-style/c))
(get-smoothing-off (->m (or/c 'base font-smoothing/c)))
(get-style-off (->m (or/c 'base font-style/c)))
(get-style-on (->m (or/c 'base font-style/c)))
(get-transparent-text-backing-off (->m boolean?))
(get-transparent-text-backing-on (->m boolean?))
(get-underlined-off (->m boolean?))
(get-underlined-on (->m boolean?))
(get-weight-off (->m font-weight/c))
(get-weight-on (->m font-weight/c))
(get-weight-off (->m (or/c 'base font-weight/c)))
(get-weight-on (->m (or/c 'base font-weight/c)))
(set-alignment-off (->m alignment/c void?))
(set-alignment-on (->m alignment/c void?))
(set-delta (case->m