diff --git a/basis/ui/gadgets/labels/labels.factor b/basis/ui/gadgets/labels/labels.factor index 5e91e5bfb7..0c1aecad52 100644 --- a/basis/ui/gadgets/labels/labels.factor +++ b/basis/ui/gadgets/labels/labels.factor @@ -106,12 +106,12 @@ M: f >label drop ; { 5 5 } >>gap ; inline PRIVATE> -: label-on-left ( gadget label -- button ) +: label-on-left ( gadget label -- track ) label-on-left/right swap >label f track-add swap 1 track-add ; -: label-on-right ( label gadget -- button ) +: label-on-right ( label gadget -- track ) label-on-left/right swap f track-add swap >label 1 track-add ;