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

Add a missing contract

Browse Source
This commit is contained in:
Asumu Takikawa 2013-02-15 14:35:11 -05:00
parent 6281ac0aac
commit e7a434559f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/snip/private/contract.rkt
View File

@ -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))))