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

.

Browse Source 
original commit: 57af913ab8eb82819930db253c9301b20b1cd107
This commit is contained in:
Matthew Flatt 2002-01-22 20:51:37 +00:00
parent 81ddc29aca
commit e6f5c70ad8
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

@ -2942,7 +2942,7 @@
(sequence (sequence
(let ([cwho '(iconstructor subarea)]) (let ([cwho '(iconstructor subarea)])
(unless (eq? horiz-margin no-val) (check-margin-integer cwho horiz-margin)) (unless (eq? horiz-margin no-val) (check-margin-integer cwho horiz-margin))
(unless (eq? horiz-margin no-val) (check-margin-integer cwho vert-margin)))) (unless (eq? vert-margin no-val) (check-margin-integer cwho vert-margin))))
(private-field [get-wx-panel get-wx-pan]) (private-field [get-wx-panel get-wx-pan])
(public (public
[(hm horiz-margin) (param get-wx-panel x-margin)] [(hm horiz-margin) (param get-wx-panel x-margin)]