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

.

Browse Source 
original commit: 69915f2bd918a1b44ca733692c8f8e2ef3cb7e3f
This commit is contained in:
Matthew Flatt 2003-03-07 01:03:57 +00:00
parent b13f87b78f
commit 9a05a819af
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/tests/mred/item.ss
View File

@ -2009,7 +2009,7 @@
(define make-selector-and-runner (define make-selector-and-runner
(lambda (p1 p2 radios? size maker) (lambda (p1 p2 radios? size maker)
(define (make-radio-box lbl choices panel cb) (define (make-radio-box lbl choices panel cb)
(let ([g (instantiate group-box-panel% (lbl panel) [horiz-margin 2] [vert-margin 2])]) (let ([g (instantiate group-box-panel% (lbl panel))])
(make-object radio-box% #f choices g cb))) (make-object radio-box% #f choices g cb)))
(define radio-h-radio (define radio-h-radio
(make-radio-box (make-radio-box