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

ui.gadgets.tracks: init-track

db4
Eduardo Cavazos 2008-07-22 11:31:43 -05:00
parent 8bf0500b26
commit 6e3203e2fd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,11 +11,15 @@ TUPLE: track < pack sizes ;
: normalized-sizes ( track -- seq ) : normalized-sizes ( track -- seq )
sizes>> dup sift sum '[ dup [ , / ] when ] map ; sizes>> dup sift sum '[ dup [ , / ] when ] map ;
: new-track ( orientation class -- track ) : init-track ( track -- track )
new-gadget init-gadget
swap >>orientation
V{ } clone >>sizes V{ } clone >>sizes
1 >>fill ; inline 1 >>fill ;
: new-track ( orientation class -- track )
new
init-track
swap >>orientation ;
: <track> ( orientation -- track ) track new-track ; : <track> ( orientation -- track ) track new-track ;