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

added log-viewing support to DrScheme

Browse Source 
svn: r13291

original commit: ef36f329b78d52d2a2828ef1e8cd5411908e9bf4
This commit is contained in:
Robby Findler 2009-01-27 14:23:18 +00:00
parent 5fa5b272b9
commit 2a05e89cad
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -238,8 +238,12 @@
(define/private (update-percentages) (define/private (update-percentages)
(let ([len-children (length (get-children))]) (let ([len-children (length (get-children))])
(unless (= len-children (length percentages)) (unless (= len-children (length percentages))
(let ([rat (/ 1 len-children)]) (cond
(set! percentages (build-list len-children (λ (i) (make-percentage rat))))) [(zero? len-children)
'()]
[else
(let ([rat (/ 1 len-children)])
(set! percentages (build-list len-children (λ (i) (make-percentage rat)))))])
(after-percentage-change)))) (after-percentage-change))))
(define/override (after-new-child child) (define/override (after-new-child child)
@ -373,7 +377,10 @@
(list-ref child-info 3)))]) (list-ref child-info 3)))])
(loop (cdr percentages) (loop (cdr percentages)
(cdr children-info) (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))))]))) (max child-minor minor-size))))])))
(super-instantiate (parent)))) (super-instantiate (parent))))