fix call to message box to remove incorrect style flag

merge to the release branch, please (cherry picked from commit e067a4415a)
2012-01-11 13:01:03 -06:00 · 2012-01-11 13:01:03 -06:00 · 09ad681027
commit 09ad681027
parent 42698ef9c5
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/frame.rkt
+++ b/collects/framework/private/frame.rkt
@ -1459,7 +1459,7 @@
                     (format (string-constant welcome-to-something)
                             (application:current-app-name))
                     #f
-                     '(ok app))))
+                     '(ok))))
    (define/override help-menu:about-string (λ () (application:current-app-name)))
    (define/override help-menu:create-about? (λ () #t))