Hecl Builder

Average rating:

set ticker [lcdui.ticker -text "The time is [clock format [clock time]]"]
set form [lcdui.form -title "Ticker Example" -ticker $ticker]
$form setcurrent

proc updateTicker {ticker} {
    $ticker configure -text "The time is [clock format [clock time]]"
    after 1000 [list updateTicker $ticker]
}

after 1000 [list updateTicker $ticker]