<periodic-table> ( -- gadget )

Vocabulary

periodic-table

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors kernel sequences ui.gadgets ui.gadgets.labels
ui.gadgets.tracks ;

IN: periodic-table

: <periodic-table> ( -- gadget )
    vertical <track> { 3 3 } >>gap periodic-table [
        horizontal <track> { 3 3 } >>gap swap
        [ [ <element-button> f track-add ] each ]
        [ "" <label> { 10 10 } >>pref-dim f track-add ] if*
        f track-add
    ] each <legend> f track-add ;