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.
! See http://factorcode.org/license.txt for BSD license.
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
TUPLE: track < pack sizes ;
: normalized-sizes ( track -- seq )
track-sizes
[ sift sum ] keep [ dup [ over / ] when ] map nip ;
sizes>> dup sift sum '[ dup [ , / ] when ] map ;
: new-track ( orientation class -- track )
new-gadget
@ -59,5 +60,4 @@ M: track pref-dim* ( gadget -- dim )
2drop
] if ;
: clear-track ( track -- )
V{ } clone over set-track-sizes clear-gadget ;
: clear-track ( track -- ) V{ } clone >>sizes clear-gadget ;