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

.

Browse Source 
original commit: 87809f6ed0d087991b8135594f27f843e8a10592
This commit is contained in:
Matthew Flatt 2002-10-20 15:33:40 +00:00
parent 0a603fa854
commit ba1ae59b17
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

@ -4189,7 +4189,7 @@
(and (positive? selection) selection)))))
(define list-box%
(class100 basic-list-control% (label choices parent callback [style '(single)] [selection 0])
(class100 basic-list-control% (label choices parent callback [style '(single)] [selection #f])
(sequence
(let ([cwho '(constructor list-box)])
(check-list-control-args cwho label choices parent callback)