suzanne.soy/racket
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
This commit is contained in:
Matthew Flatt 2011-01-08 08:52:42 -07:00
parent 9e9a3ef814
commit 8f6acf6aae
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 () (lambda ()
(let ([cwho '(constructor radio-box)]) (let ([cwho '(constructor radio-box)])
(check-container-ready cwho parent) (check-container-ready cwho parent)
(unless (< selection (length choices)) (when selection
(raise-mismatch-error (who->name cwho) (unless (< selection (length choices))
(format "initial selection is too large, given only ~a choices: " (raise-mismatch-error (who->name cwho)
(length choices)) (format "initial selection is too large, given only ~a choices: "
selection)))) (length choices))
selection)))))
label parent callback #f))) label parent callback #f)))
(when (or (not selection) (positive? selection)) (when (or (not selection) (positive? selection))
(set-selection selection))))) (set-selection selection)))))