Average rating:
set ticker [lcdui.ticker -text "Das ist ein Ticker von Thomas!"]
set form [lcdui.form -title "Thomas-Ticker" -ticker $ticker]
$form setcurrent
proc updateTicker {ticker} {
$ticker configure -text "Das ist ein Ticker von Thomas!"
after 1000 [list updateTicker $ticker]
}
after 1000 [list updateTicker $ticker]