diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss index c3fa1f3aad..f2908f2501 100644 --- a/collects/framework/splash.ss +++ b/collects/framework/splash.ss @@ -280,19 +280,11 @@ (define quit-on-close? #t) (define splash-tlw% - (case (system-type) - [(unix) - (class dialog% - (define/augment (on-close) - (when quit-on-close? - (exit))) - (super-new))] - [else - (class frame% - (define/augment (on-close) - (when quit-on-close? - (exit))) - (super-new [style '(no-resize-border)]))])) + (class dialog% + (define/augment (on-close) + (when quit-on-close? + (exit))) + (super-new))) (define splash-canvas% (class canvas%