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

fix memq on not-yet-validated style list

Browse Source 
svn: r4684
This commit is contained in:
Matthew Flatt 2006-10-26 05:04:47 +00:00
parent 4168ac3164
commit 387612edb7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/mrcanvas.ss
View File

@ -85,8 +85,8 @@
[(parent [style null] [paint-callback default-paint-cb] [label #f] [gl-config #f])
canvas%-keywords]
(private-field [paint-cb paint-callback]
[has-x? (memq 'hscroll style)]
[has-y? (memq 'vscroll style)])
[has-x? (and (list? style) (memq 'hscroll style))]
[has-y? (and (list? style) (memq 'vscroll style))])
(inherit get-client-size get-dc set-label)
(rename [super-on-paint on-paint])
(sequence