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

ui.gadgets.tracks: rewrite pref-dim* method

db4
Eduardo Cavazos 2008-07-15 02:25:37 -05:00
parent 1a04f30c7c
commit 43b2022176
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,8 +16,7 @@ TUPLE: track < pack sizes ;
V{ } clone >>sizes
1 >>fill ; inline
: <track> ( orientation -- track )
track new-track ;
: <track> ( orientation -- track ) track new-track ;
: alloted-dim ( track -- dim )
dup gadget-children swap track-sizes { 0 0 }
@ -29,21 +28,20 @@ TUPLE: track < pack sizes ;
dup available-dim over gadget-children rot normalized-sizes
[ [ over n*v ] [ pref-dim ] ?if ] 2map nip ;
M: track layout*
dup track-layout pack-layout ;
M: track layout* ( track -- ) dup track-layout pack-layout ;
: track-pref-dims-1 ( track -- dim )
gadget-children pref-dims max-dim ;
: 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 ;
M: track pref-dim*
dup track-pref-dims-1
over alloted-dim
pick track-pref-dims-2 v+
rot gadget-orientation set-axis ;
M: track pref-dim* ( gadget -- dim )
[ track-pref-dims-1 ]
[ [ alloted-dim ] [ track-pref-dims-1 ] bi v+ ]
[ orientation>> ]
tri
set-axis ;
: track-add ( gadget track constraint -- )
over track-sizes push swap add-gadget drop ;