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

.

Browse Source 
original commit: b3eaafbb5cfbacfa9c7969c8279ca23087a3cdb9
This commit is contained in:
Matthew Flatt 2003-03-01 23:18:30 +00:00
parent f3d77b7d6d
commit 0e4ddbf838
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/mred/mred.ss
View File

@ -1064,13 +1064,12 @@
(min-height (+ new-height (client-inset #t)))])])
(private-field [-mw 0]
[-mh 0]
[-xm x-margin-w]
[-ym y-margin-h]
[-sx stretch-x]
[-sy stretch-y]
[first-arg (car args)])
[-mh 0]
[-xm x-margin-w]
[-ym y-margin-h]
[-sx stretch-x]
[-sy stretch-y]
[first-arg (car args)])
(public
[min-width
@ -5066,6 +5065,12 @@
(check-label-string cwho label)
(check-container-parent cwho parent)
(check-style cwho #f '(deleted) style))
;; Technically a bad way to change margin defaults, since it's
;; implemented with an update after creation:
(when (eq? horiz-margin no-val) (set! horiz-margin 2))
(when (eq? vert-margin no-val) (set! vert-margin 2))
(super-init parent (if (memq 'deleted style)
'(deleted)
null)))