fix ada splash screen

2014-02-28 08:19:31 -06:00 · 2014-02-28 08:19:31 -06:00 · 5b038fccaf
commit 5b038fccaf
parent 5848851ac5
1 changed files with 1 additions and 1 deletions
--- a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
+++ b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
@ -140,7 +140,7 @@ that actually does drawing in a window.

 (define bernoulli-sequence-pict (make-bernoulli-sequence-pict 50))
 (define (draw-splash-ada dc current max width height)
-  (send dc erase)
+  (send dc clear)
  (draw-ada dc (/ current max) width height) #t)

 (module+ main