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

radio-box% initial selection and #f

Browse Source 
Closes PR 11107

original commit: 8f6acf6aae3b389a85cef3867d27c41393c12f3c
This commit is contained in:
Matthew Flatt 2011-01-08 08:52:42 -07:00
parent 78c90d9910
commit a74d9e8c80
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mred/private/mritem.rkt
View File

@ -333,11 +333,12 @@
(lambda ()
(let ([cwho '(constructor radio-box)])
(check-container-ready cwho parent)
(unless (< selection (length choices))
(raise-mismatch-error (who->name cwho)
(format "initial selection is too large, given only ~a choices: "
(length choices))
selection))))
(when selection
(unless (< selection (length choices))
(raise-mismatch-error (who->name cwho)
(format "initial selection is too large, given only ~a choices: "
(length choices))
selection)))))
label parent callback #f)))
(when (or (not selection) (positive? selection))
(set-selection selection)))))