Average rating:
proc HelloEvents {cmd form} {{lcdui.alert -text "Hellllllllooooo,world!" -timeout forever] setcurrent}
set form [lcdui.form -title "Hello 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"]