Average rating:
proc HelloEvents {cmd form} {
[lcdui.alert -text "Hellllllllooooo, Teeradache world!" -timeout forever] setcurrent
}
set form [lcdui.form -title "Hello Tee world" -commandaction HelloEvents]
set cmd [lcdui.command -label "Hello" -longlabel "Hello Command" -type screen]
$form setcurrent
$form addcommand $cmd
$form append [lcdui.stringitem -label "Hello" -text "World"]