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

svn: r14027

Browse Source 
original commit: ca2dd05eca1588351b6c668865b9c334b40ee607
This commit is contained in:
Robby Findler 2009-03-10 14:38:19 +00:00
parent 809f38a3c9
commit 0230ff84e8
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/framework/test.ss
View File

@ -352,7 +352,7 @@
[(zero? n) (error 'test:set-radio-box!
"did not find ~e as a label for ~e; labels: ~a"
state in-cb
(build-labels in-cb))]
(build-labels rb))]
[else (let ([i (- total n)])
(if (or (string=? state (send rb get-item-label i))
(string=? state (send rb get-item-plain-label i)))