Average rating:
proc HelloEvents {cmd form} {
[lcdui.alert -text "Hellllllllooooo, world!" -timeout forever] setcurrent
}
set form [lcdui.form -title "Halo AMRITA" -commandaction HelloEvents]
set cmd [lcdui.command -label "Hello" -longlabel "Hello Command" -type screen]
$form setcurrent
$form addcommand $cmd
$form append [lcdui.stringitem -label "Halo Saurav" -text "Megan Fox likes Balaji"]