label-on-left ( gadget label -- track )


Vocabulary
ui.gadgets.labels

Inputs
gadgetan object
labelan object


Outputs
trackan object


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

IN: ui.gadgets.labels

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