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

no message

Browse Source 
original commit: 89932506e3a34e028564681d44bd9ce7a57f8da6
This commit is contained in:
Robby Findler 2001-01-10 23:14:19 +00:00
parent 1f57de0047
commit 0f2486156e
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/framework/panel.ss
View File

@ -256,10 +256,16 @@
grabbed)
(let-values ([(w h) (get-client-size)])
(let* ([y (inexact->exact (send mouse-evt get-y))]
[y-min (if (= grabbed 0)
thumb-min
(+ (get-thumb-middle (sum-percentages (- grabbed 1)))
thumb-height))]
[y-min
(let ([min-child-height
(max thumb-height
(let-values ([(w h) (send (list-ref (send parent get-children) (+ grabbed 1)) get-graphical-min-size)])
h))])
;(printf "min-child-height: ~s ~s ~s~n" min-child-height grabbed (send parent get-children))
(if (= grabbed 0)
min-child-height
(+ (get-thumb-middle (sum-percentages (- grabbed 1)))
min-child-height)))]
[y-max (if (= grabbed (- (length percentages) 2))
(- h thumb-min)
(- (get-thumb-middle (sum-percentages (+ grabbed 1)))
@ -398,13 +404,13 @@
;; remove the thumb canvas from the computation
(let ([lst (if (null? _lst) null (cdr _lst))])
(values
(apply + (map car lst))
(cond
[(null? lst) 0]
[(null? (cdr lst)) (cadr (car lst))]
[else
(+ (send thumb-canvas min-width)
(apply max (map cadr lst)))]))))]
[(null? lst) 0]
[(null? (cdr lst)) (cadr (car lst))]
[else
(+ (send thumb-canvas min-width)
(apply max (map car lst)))])
(apply + (map cadr lst)))))]
[place-children
(lambda (_infos width height)
(cond