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

Add missing method contracts for color%

Browse Source
This commit is contained in:
Asumu Takikawa 2012-04-24 10:08:24 -04:00
parent 1207ca77c4
commit 555f85ac3a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/draw/private/contract.rkt
View File

@ -197,6 +197,7 @@
(define color%/c
(class/c
(alpha (->m (real-in 0 1)))
(red (->m (integer-in 0 255)))
(blue (->m (integer-in 0 255)))
(green (->m (integer-in 0 255)))
@ -219,6 +220,7 @@
(get-family (->m (or/c 'default 'decorative 'roman 'script
'swiss 'modern 'symbol 'system)))
(get-font-id (->m exact-integer?))
(get-hinting (->m (or/c 'aligned 'unaligned)))
(get-point-size (->m (integer-in 1 255)))
(get-size-in-pixels (->m boolean?))
(get-smoothing (->m (or/c 'default 'partly-smoothed