From 5b038fccafe94f6b2c4831ea34a3b46982d6598d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 28 Feb 2014 08:19:31 -0600 Subject: [PATCH] fix ada splash screen --- pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt index 1c17166592..2455f7f4a8 100644 --- 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