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

View File

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