From 44c972e308b7a86c173318453293636218d9bffc Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 13 Jul 2008 15:44:22 -0500
Subject: [PATCH] ui.gadgets.tracks: add track-add* as a temporary transition
word
---
extra/ui/gadgets/tracks/tracks.factor | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/extra/ui/gadgets/tracks/tracks.factor b/extra/ui/gadgets/tracks/tracks.factor
index eca49d3aab..7a8ee65a8b 100644
--- a/extra/ui/gadgets/tracks/tracks.factor
+++ b/extra/ui/gadgets/tracks/tracks.factor
@@ -49,6 +49,10 @@ M: track pref-dim*
: track-add ( gadget track constraint -- )
over track-sizes push swap add-gadget drop ;
+: track-add* ( track gadget constraint -- track )
+ pick sizes>> push
+ add-gadget ;
+
: track, ( gadget constraint -- )
gadget get swap track-add ;