Hecl Builder

Average rating:

set selectcmd [lcdui.command -label Select -longlabel Choose -type item -priority 1]
set lst [lcdui.list -title "MTN RWANDA Cust Registration" -commandaction selectoption]
set options {Customer_Registration Edit_Registration Exit_Application}
set num 1
foreach n $options {
    $lst append  "$num - $n"
    incr $num
}
$lst setcurrent
$lst addcommand $selectcmd
proc selectoption {cmd lst} {
    global options
    [lcdui.alert -text "[lindex $options [$lst selection get]]"] setcurrent
}