(module test-connection-mred mzscheme (require (lib "mred.ss" "mred") (lib "class.ss") (lib "etc.ss")) (define f (new frame% (label "PLaneT Download Successful!"))) (define m (new button% (label (make-object bitmap% (build-path (this-expression-source-directory) "planet-splash-screen.png") 'png #f)) (parent f) (callback (lambda (b e) (void))))) (send f show #t))