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

.

Browse Source 
original commit: 10e2e0316b5c579bd293316381507bef44272150
This commit is contained in:
Matthew Flatt 2002-09-04 19:12:11 +00:00
parent 367eca8a28
commit 307f479a4d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

@ -5161,12 +5161,12 @@
(check-style 'message-box '(ok ok-cancel yes-no) '(caution stop) style)
(let-values ([(one two one-v two-v close-val default)
(case (car style)
[(ok)
(cond
[(memq 'ok style)
(values "OK" #f 'ok #f 1 'default=1)]
[(ok-cancel)
[(memq 'ok-cancel style)
(values "OK" "Cancel" 'ok 'cancel 2 'default=1)]
[(yes-no)
[(memq 'yes-no style)
(values "&Yes" "&No" 'yes 'no #f 'no-default)])])
(case (message-box/custom title message
one two #f