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

.

Browse Source 
original commit: e0a43e3fee67797edc778e31797e0155804b91a8
This commit is contained in:
Robby Findler 2005-01-05 14:41:12 +00:00
parent f2afbf3455
commit fe564491d2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/panel.ss
View File

@ -205,9 +205,10 @@
(define/public (get-vertical?)
(error 'get-vertical "abstract method"))
(define/private (min-extent child)
(if (get-vertical?)
(send child min-height)
(send child min-width)))
(let-values ([(w h) (send child get-graphical-min-size)])
(if (get-vertical?)
(max (send child min-height) h)
(max (send child min-width) w))))
(define/private (event-get-dim evt)
(if (get-vertical?)
(send evt get-y)