From a5c7e1956852135e9845682a55e6db4c9d26bf85 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 10 May 2001 19:40:19 +0000 Subject: [PATCH] ... original commit: d66593cec4f23671ebff029247d5f63ca50e24e3 --- collects/framework/private/panel.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index 5d1a42be..826ba87f 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -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%))))) \ No newline at end of file + (define vertical-resizable-pane% (vertical-resizable-mixin pane%)))))