From 57dfbf6d10e7021848952a34d2415e8cdb45455a Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 15 Jul 2008 02:45:15 -0500 Subject: [PATCH] ui.gadgets.tracks: rewrite normalized-sizes --- extra/ui/gadgets/tracks/tracks.factor | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/extra/ui/gadgets/tracks/tracks.factor b/extra/ui/gadgets/tracks/tracks.factor index 7f0e38bff7..36df45a3b6 100644 --- a/extra/ui/gadgets/tracks/tracks.factor +++ b/extra/ui/gadgets/tracks/tracks.factor @@ -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 ;