From 2a05e89cadb8763b42553f7902b29b82e219275a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 27 Jan 2009 14:23:18 +0000 Subject: [PATCH] added log-viewing support to DrScheme svn: r13291 original commit: ef36f329b78d52d2a2828ef1e8cd5411908e9bf4 --- collects/framework/private/panel.ss | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss index 7a0d0c81..cfadd9d6 100644 --- a/collects/framework/private/panel.ss +++ b/collects/framework/private/panel.ss @@ -238,8 +238,12 @@ (define/private (update-percentages) (let ([len-children (length (get-children))]) (unless (= len-children (length percentages)) - (let ([rat (/ 1 len-children)]) - (set! percentages (build-list len-children (λ (i) (make-percentage rat))))) + (cond + [(zero? len-children) + '()] + [else + (let ([rat (/ 1 len-children)]) + (set! percentages (build-list len-children (λ (i) (make-percentage rat)))))]) (after-percentage-change)))) (define/override (after-new-child child) @@ -373,7 +377,10 @@ (list-ref child-info 3)))]) (loop (cdr percentages) (cdr children-info) - (max (/ child-major (percentage-% percentage)) major-size) + (max (if (zero? (percentage-% percentage)) + 0 + (/ child-major (percentage-% percentage))) + major-size) (max child-minor minor-size))))]))) (super-instantiate (parent))))