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

reverted back to 22

Browse Source 
original commit: 62c7e1a4a30d6d3d230e4071b515f3250b9fe28c
This commit is contained in:
Robby Findler 1996-08-13 15:24:23 +00:00
parent 76fd8605bc
commit 4ff3c57e9d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/prefs.ss
View File

@ -178,7 +178,11 @@
(let* ([main (make-object mred:vertical-panel% parent)]
[make-check
(lambda (callback title initial-value)
(let* ([c (make-object mred:check-box% main callback title)])
(let* ([h (make-object mred:horizontal-panel% main)]
[c (make-object mred:check-box% h callback title)]
[p (make-object mred:horizontal-panel% h)])
(send* h (spacing 1) (border 1))
(send* p (spacing 1) (border 1))
(send c set-value initial-value)))])
(send main spacing 1)
(make-check (lambda (_ command)