steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets.tracks: rewrite track-pref-dims-2

db4
Eduardo Cavazos 2008-07-15 02:38:04 -05:00
parent 39ec81361e
commit 1f422a1412
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/ui/gadgets/tracks/tracks.factor
View File

@ -33,8 +33,10 @@ M: track layout* ( track -- ) dup track-layout pack-layout ;
: track-pref-dims-1 ( track -- dim ) children>> pref-dims max-dim ;
: track-pref-dims-2 ( track -- dim )
dup gadget-children pref-dims swap normalized-sizes
[ [ v/n ] when* ] 2map max-dim [ >fixnum ] map ;
[ children>> pref-dims ] [ normalized-sizes ] bi
[ [ v/n ] when* ] 2map
max-dim
[ >fixnum ] map ;
M: track pref-dim* ( gadget -- dim )
[ track-pref-dims-1 ]