gadget-text* ( gadget -- )

Vocabulary

ui.gadgets

Inputs

gadget

an object

Outputs

None

Definition

IN: ui.gadgets

GENERIC: gadget-text* ( gadget -- )

Methods

USING: arrays sequences ui.gadgets ;

M: array gadget-text* [ gadget-text* ] each ;


USING: make ui.gadgets ui.gadgets.editors ;

M: editor gadget-text* editor-string % ;


USING: accessors kernel ui.gadgets ;

M: gadget gadget-text* [ children>> ] keep gadget-seq-text ;


USING: accessors make sequences strings.tables ui.gadgets
ui.gadgets.grids ;

M: grid gadget-text*
    grid>> [ [ gadget-text ] map ] map format-table
    [ 10 , ] [ % ] interleave ;


USING: accessors make ui.gadgets ui.gadgets.labels ;

M: label gadget-text* string>> % ;


USING: accessors kernel ui.gadgets ui.traverse ;

M: node gadget-text*
    [ children>> ] [ value>> ] bi gadget-seq-text ;