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

...

Browse Source 
original commit: d66593cec4f23671ebff029247d5f63ca50e24e3
This commit is contained in:
Robby Findler 2001-05-10 19:40:19 +00:00
parent da041d58b2
commit a5c7e19568
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -70,6 +70,8 @@
(case-lambda
[() current-active-child]
[(x)
(unless (memq x (get-children))
(error 'active-child "got a panel that is not a child: ~e" x))
(unless (eq? x current-active-child)
(for-each (lambda (x) (send x show #f))
(get-children))
@ -280,7 +282,6 @@
(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)))
@ -485,4 +486,4 @@
(set! thumb-canvas (make-object thumb-canvas% this)))))
(define vertical-resizable% (vertical-resizable-mixin panel%))
(define vertical-resizable-pane% (vertical-resizable-mixin pane%)))))
(define vertical-resizable-pane% (vertical-resizable-mixin pane%)))))