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

.

Browse Source 
original commit: 453591f16b9ea1695f485e48d0ea281c029e0358
This commit is contained in:
Matthew Flatt 2001-10-26 15:17:24 +00:00
parent 193f365beb
commit f18f9e6fec
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/mred/mred.ss
View File

@ -4834,7 +4834,7 @@
[(title message parent) (message-box title message parent '(ok))] [(title message parent) (message-box title message parent '(ok))]
[(title message parent style) [(title message parent style)
(check-label-string 'message-box title) (check-label-string 'message-box title)
(check-label-string/false 'message-box message) (check-string/false 'message-box message)
(check-top-level-parent/false 'message-box parent) (check-top-level-parent/false 'message-box parent)
(check-style 'message-box '(ok ok-cancel yes-no) null style) (check-style 'message-box '(ok ok-cancel yes-no) null style)