ui.gadgets.tracks: add track-add* as a temporary transition word

2008-07-13 15:44:22 -05:00 · 2008-07-13 15:44:22 -05:00 · 44c972e308
parent b507295375
commit 44c972e308
1 changed files with 4 additions and 0 deletions
--- 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 ;