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

.

Browse Source 
original commit: 86e7bb8e9981f8d4e7f1e4c6e4e0f00f52506e60
This commit is contained in:
Robby Findler 2005-02-15 18:46:21 +00:00
parent 879c5b9c86
commit c95fac2b03
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -215,8 +215,6 @@
(icon:get-up/down-cursor) (icon:get-up/down-cursor)
(icon:get-left/right-cursor))) (icon:get-left/right-cursor)))
(super-instantiate (parent))
(inherit get-client-size container-flow-modified) (inherit get-client-size container-flow-modified)
(init-field [bar-thickness 5]) (init-field [bar-thickness 5])
@ -392,7 +390,9 @@
(loop (cdr percentages) (loop (cdr percentages)
(cdr children-info) (cdr children-info)
(max (/ child-major (percentage-% percentage)) major-size) (max (/ child-major (percentage-% percentage)) major-size)
(max child-minor minor-size))))]))))) (max child-minor minor-size))))])))
(super-instantiate (parent))))
(define three-bar-pen-bar-width 8) (define three-bar-pen-bar-width 8)