<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 ] ] dip
    [ string<< ] curry compose f 1 seconds <timer> >>timer ;