(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))