Average rating:
proc HelloEvents {cmd form} {
[lcdui.alert -text "Love You All" -timeout forever] setcurrent
}
set form [lcdui.form -title "Hi Guys" -commandaction HelloEvents]
set cmd [lcdui.command -label "Greet" -longlabel "Hello Command" -type screen]
$form setcurrent
$form addcommand $cmd
$form append [lcdui.stringitem -label "Friends" -text "Developers"]