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

ui.gadgets.tracks: rewrite normalized-sizes

db4
Eduardo Cavazos 2008-07-15 02:45:15 -05:00
parent 1f422a1412
commit 57dfbf6d10
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,14 +1,15 @@
! Copyright (C) 2006, 2008 Slava Pestov. ! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel math namespaces USING: accessors io kernel math namespaces
sequences words math.vectors ui.gadgets ui.gadgets.packs math.geometry.rect ; sequences words math.vectors ui.gadgets ui.gadgets.packs
math.geometry.rect fry ;
IN: ui.gadgets.tracks IN: ui.gadgets.tracks
TUPLE: track < pack sizes ; TUPLE: track < pack sizes ;
: normalized-sizes ( track -- seq ) : normalized-sizes ( track -- seq )
track-sizes sizes>> dup sift sum '[ dup [ , / ] when ] map ;
[ sift sum ] keep [ dup [ over / ] when ] map nip ;
: new-track ( orientation class -- track ) : new-track ( orientation class -- track )
new-gadget new-gadget
@ -59,5 +60,4 @@ M: track pref-dim* ( gadget -- dim )
2drop 2drop
] if ; ] if ;
: clear-track ( track -- ) : clear-track ( track -- ) V{ } clone >>sizes clear-gadget ;
V{ } clone over set-track-sizes clear-gadget ;