oops
svn: r2700
This commit is contained in:
parent
331a1c896b
commit
72d9f314bb
|
@ -163,7 +163,7 @@
|
|||
(send dc set-brush (find-brush "white"))
|
||||
(send dc draw-ellipse x y w h)
|
||||
(series dc
|
||||
(if teeth-shading? 5 1)
|
||||
(if teeth-shading? 5 0)
|
||||
(make-object color% "darkgray")
|
||||
(make-object color% "lightgray")
|
||||
(lambda (i)
|
||||
|
|
Loading…
Reference in New Issue
Block a user