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

.

Browse Source 
original commit: 59316570d8b469e78f8b2947e0aeb5e4e8c9b648
This commit is contained in:
Matthew Flatt 2004-09-16 16:07:40 +00:00
parent cab23e083d
commit e814dd7bc0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

@ -691,8 +691,8 @@
[(< frame-h min-h) min-h]
[(and (> frame-h min-h) (not (child-info-y-stretch panel-info))) min-h]
[else frame-h])])
(values new-w new-h
min-w min-h
(values (max new-w 1) (max new-h 1)
(max min-w 1) (max min-h 1)
(child-info-x-stretch panel-info) (child-info-y-stretch panel-info))))))]
[set-panel-size