From 6e3203e2fd27258fdab68d19a1ef98cfd603d148 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 22 Jul 2008 11:31:43 -0500
Subject: [PATCH] ui.gadgets.tracks: init-track
---
extra/ui/gadgets/tracks/tracks.factor | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/extra/ui/gadgets/tracks/tracks.factor b/extra/ui/gadgets/tracks/tracks.factor
index 4e8a650116..4aba8f45ef 100644
--- a/extra/ui/gadgets/tracks/tracks.factor
+++ b/extra/ui/gadgets/tracks/tracks.factor
@@ -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 ;