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

fix ada splash screen

Browse Source
This commit is contained in:
Robby Findler 2014-02-28 08:19:31 -06:00
parent 5848851ac5
commit 5b038fccaf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/drracket-pkgs/drracket/drracket/private/ada.rkt
View File

@ -140,7 +140,7 @@ that actually does drawing in a window.
(define bernoulli-sequence-pict (make-bernoulli-sequence-pict 50)) (define bernoulli-sequence-pict (make-bernoulli-sequence-pict 50))
(define (draw-splash-ada dc current max width height) (define (draw-splash-ada dc current max width height)
(send dc erase) (send dc clear)
(draw-ada dc (/ current max) width height) #t) (draw-ada dc (/ current max) width height) #t)
(module+ main (module+ main