slideshow/balloon: fix balloon to match docs

2012-11-06 14:03:47 -05:00 · 2012-11-06 14:03:47 -05:00 · 9e6329abee
commit 9e6329abee
parent 5f74f120c8
1 changed files with 2 additions and 1 deletions
--- a/collects/texpict/balloon.rkt
+++ b/collects/texpict/balloon.rkt
@ -25,7 +25,8 @@
  (define (series dc steps start-c end-c f pen? brush?)
    (color-series dc steps #e0.5 start-c end-c f pen? brush?))
    
-  (define (mk-balloon w h corner-radius spike-pos dx dy color)
+  (define (mk-balloon w h corner-radius spike-pos dx dy
+                      [color balloon-color])
    (let ([dw (if (< corner-radius 1)
                  (* corner-radius w)
                  corner-radius)]