From e7a434559f3749fb82b81b52979326ecf996035f Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Fri, 15 Feb 2013 14:35:11 -0500 Subject: [PATCH] Add a missing contract --- collects/racket/snip/private/contract.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/racket/snip/private/contract.rkt b/collects/racket/snip/private/contract.rkt index aa410566c8..31522137c5 100644 --- a/collects/racket/snip/private/contract.rkt +++ b/collects/racket/snip/private/contract.rkt @@ -1,5 +1,7 @@ #lang racket/base +;; Contract definitions for racket/snip + (require racket/class racket/contract/base racket/draw @@ -63,6 +65,7 @@ (get-size-in-pixels-on (->m boolean?)) (get-size-mult (->m real?)) (get-smoothing-off (->m (or/c 'base font-smoothing/c))) + (get-smoothing-on (->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?)) @@ -576,3 +579,4 @@ (get-selected-text-color snip-admin%-get-selected-text-color/c) (call-with-busy-cursor snip-admin%-call-with-busy-cursor/c) (get-tabs snip-admin%-get-tabs/c)))) +