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 ;