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

fix checking of dc<%> set-pen method arguments

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-16 18:27:42 -06:00
parent 85e4fed31f
commit 712ee0cc68
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/draw/dc.rkt
View File

@ -493,7 +493,7 @@
args args
[([pen% p]) (set-pen! p) (reset-align!)] [([pen% p]) (set-pen! p) (reset-align!)]
[([(make-alts string? color%) col] [([(make-alts string? color%) col]
[exact-nonnegative-integer? width] [pen-width? width]
[pen-style-symbol? style]) [pen-style-symbol? style])
(set-pen! (send the-pen-list find-or-create-pen col width style)) (set-pen! (send the-pen-list find-or-create-pen col width style))
(reset-align!)] (reset-align!)]

1
collects/racket/draw/pen.rkt
View File

@ -7,6 +7,7 @@
(provide pen% (provide pen%
pen-list% the-pen-list pen-list% the-pen-list
pen-width?
pen-style-symbol?) pen-style-symbol?)
(define (pen-style-symbol? s) (define (pen-style-symbol? s)