<time-display> ( -- gadget )

Vocabulary

lcd

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors calendar calendar.format fonts kernel sequences
timers ui.gadgets.labels ;

IN: lcd

: <time-display> ( -- gadget )
    "99:99:99" lcd " " append time-display new-label
    monospace-font >>font dup
    '[ now timestamp>hms lcd _ string<< ] f 1 seconds <timer>
    >>timer ;