From 555f85ac3aae0fe3d45a8ac301e4ca9384104ddb Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Tue, 24 Apr 2012 10:08:24 -0400 Subject: [PATCH] Add missing method contracts for color% --- collects/racket/draw/private/contract.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/racket/draw/private/contract.rkt b/collects/racket/draw/private/contract.rkt index 3293245358..ae2bc3f397 100644 --- a/collects/racket/draw/private/contract.rkt +++ b/collects/racket/draw/private/contract.rkt @@ -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