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

Uncomment & fix racket/draw contracts

Browse Source 
Use dummy values (see also racket/snip) to avoid cycles.
This commit is contained in:
Asumu Takikawa 2012-03-31 01:06:11 -04:00
parent c83df32440
commit c758f65a0b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/racket/draw/contracts.rkt
View File

@ -23,6 +23,9 @@
(provide (all-defined-out)) (provide (all-defined-out))
;; dummy values to avoid cycles
(define-values (frame% dialog%) (values object% object%))
(define brush-style/c (define brush-style/c
(one-of/c 'transparent 'solid 'opaque (one-of/c 'transparent 'solid 'opaque
'xor 'hilite 'panel 'xor 'hilite 'panel
@ -116,9 +119,8 @@
[get-char-height (->m (and/c real? (not/c negative?)))] [get-char-height (->m (and/c real? (not/c negative?)))]
[get-char-width (->m (and/c real? (not/c negative?)))] [get-char-width (->m (and/c real? (not/c negative?)))]
[get-clipping-region (->m (or/c (is-a?/c region%) #f))] [get-clipping-region (->m (or/c (is-a?/c region%) #f))]
;; Missing in this version, but fixed in master [get-device-scale (->m (values (and/c real? (not/c negative?))
;[get-device-scale (->m (values (and/c real? (not/c negative?)) (and/c real? (not/c negative?))))]
; (and/c real? (not/c negative?))))]
[get-font (->m (is-a?/c font%))] [get-font (->m (is-a?/c font%))]
[get-gl-context (->m (or/c (is-a?/c gl-context<%>) #f))] [get-gl-context (->m (or/c (is-a?/c gl-context<%>) #f))]
[get-initial-matrix (->m (vector/c real? real? real? [get-initial-matrix (->m (vector/c real? real? real?
@ -335,8 +337,7 @@
(and/c dc<%>/c (and/c dc<%>/c
(class/c (class/c
(init [interactive any/c] (init [interactive any/c]
;; this doesn't work due to a cyclic dependency [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]
;[parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]
[use-paper-bbox any/c] [use-paper-bbox any/c]
[as-eps any/c] [as-eps any/c]
[width (or/c (and/c real? (not/c negative?)) #f)] [width (or/c (and/c real? (not/c negative?)) #f)]
@ -347,8 +348,7 @@
(and/c dc<%>/c (and/c dc<%>/c
(class/c (class/c
(init [interactive any/c] (init [interactive any/c]
;; see above [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]
;[parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]
[use-paper-bbox any/c] [use-paper-bbox any/c]
[as-eps any/c] [as-eps any/c]
[width (or/c (and/c real? (not/c negative?)) #f)] [width (or/c (and/c real? (not/c negative?)) #f)]