<legend> ( -- gadget )

Vocabulary

periodic-table

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors assocs kernel sequences ui.gadgets
ui.gadgets.borders ui.gadgets.labels ui.gadgets.tracks
ui.pens.solid ;

IN: periodic-table

: <legend> ( -- gadget )
    horizontal <track> { 3 3 } >>gap group-colors [
        [ name>> rest but-last <label> { 3 3 } <border> ]
        [ <solid> >>interior ] bi* f track-add
    ] assoc-each ;