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

fix the draw contract (and change some one-of/c's to or/c's)

Browse Source
This commit is contained in:
Robby Findler 2012-11-06 21:55:36 -06:00
parent 261700ef2c
commit bc59cc43d4
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,10 +53,10 @@
(or/c 'base 'top 'center 'bottom)) (or/c 'base 'top 'center 'bottom))
(define tab-snip-filetype/c (define tab-snip-filetype/c
(one-of/c 'unknown 'unknown/mask 'unknown/alpha (or/c 'unknown 'unknown/mask 'unknown/alpha
'gif 'gif/mask 'gif/alpha 'gif 'gif/mask 'gif/alpha
'jpeg 'png 'png/mask 'png/alpha 'jpeg 'png 'png/mask 'png/alpha
'xbm 'xpm 'bmp 'pict)) 'xbm 'xpm 'bmp 'pict))
(define style-delta%/c (define style-delta%/c
(class/c (class/c
@ -150,9 +150,9 @@
;; snip% utils ;; snip% utils
(define snip%-edit-operation/c (define snip%-edit-operation/c
(one-of/c 'undo 'redo 'clear 'cut (or/c 'undo 'redo 'clear 'cut
'copy 'paste 'kill 'select-all 'copy 'paste 'kill 'select-all
'insert-text-box 'insert-pasteboard-box 'insert-image)) 'insert-text-box 'insert-pasteboard-box 'insert-image))
;; snip% methods ;; snip% methods
(define snip%-adjust-cursor/c (define snip%-adjust-cursor/c
@ -185,7 +185,9 @@
real? real?
real? real?
real? real?
(one-of/c 'no-caret 'show-inactive-caret 'show-caret) (or/c 'no-caret 'show-inactive-caret 'show-caret
(cons/c exact-nonnegative-integer?
exact-nonnegative-integer?))
void?)) void?))
(define snip%-other-equal-to?/c (define snip%-other-equal-to?/c
@ -520,12 +522,12 @@
(>=/c 0) (>=/c 0)
(>=/c 0) (>=/c 0)
any/c) any/c)
((one-of/c 'start 'end 'none)) ((or/c 'start 'end 'none))
boolean?)) boolean?))
(define snip-admin%-set-caret-owner/c (define snip-admin%-set-caret-owner/c
(->m (is-a?/c snip%) (->m (is-a?/c snip%)
(one-of/c 'immediate 'display 'global) (or/c 'immediate 'display 'global)
void?)) void?))
(define snip-admin%-update-cursor/c (define snip-admin%-update-cursor/c