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

fix call to message box to remove incorrect style flag

Browse Source 
merge to the release branch, please

original commit: e067a4415a03ec6572135ce584a17050690873ca
This commit is contained in:
Robby Findler 2012-01-11 13:01:03 -06:00
parent b7b8aff107
commit 57f229d37d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/frame.rkt
View File

@ -1459,7 +1459,7 @@
(format (string-constant welcome-to-something) (format (string-constant welcome-to-something)
(application:current-app-name)) (application:current-app-name))
#f #f
'(ok app)))) '(ok))))
(define/override help-menu:about-string (λ () (application:current-app-name))) (define/override help-menu:about-string (λ () (application:current-app-name)))
(define/override help-menu:create-about? (λ () #t)) (define/override help-menu:create-about? (λ () #t))