<element-label> ( atomic-number symbol name -- gadget )


Vocabulary
periodic-table

Inputs
atomic-numberan object
symbolan object
namean object


Outputs
gadgetan object


Definition
USING: accessors math.parser ui.gadgets ui.gadgets.labels
ui.gadgets.tracks ;

IN: periodic-table

:: <element-label> ( atomic-number symbol name -- gadget )
vertical <track> atomic-number number>string <label>
[ 10 >>size ] change-font f track-add symbol <label>
[ t >>bold? ] change-font f track-add name <label>
[ 8 >>size ] change-font f track-add ;