Hecl Builder

Average rating:

set selectcmd [lcdui.command -label Select -longlabel Select -type item -priority 1]
set lst [lcdui.list -title "List Example" -commandaction selectname]
set names {Anna Barbara Carla Daniela Emanuela Federica}
foreach n $names {
    $lst append $n
}
$lst setcurrent
$lst addcommand $selectcmd
proc selectname {cmd lst} {
    global names
    [lcdui.alert -text "Selected: [lindex $names [$lst selection get]]"] setcurrent
}