label-on-right ( label gadget -- track )


Vocabulary
ui.gadgets.labels

Inputs
labelan object
gadgetan object


Outputs
trackan object


Definition
USING: kernel ui.gadgets.labels.private ui.gadgets.tracks ;

IN: ui.gadgets.labels

: label-on-right ( label gadget -- track )
label-on-left/right swap f track-add swap >label 1 track-add
;