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
 
    set form [lcdui.form -title "Customer Registration"]
$form setcurrent
$form append [lcdui.textfield -label "ID_Number" -text "" ]
$form append [lcdui.textfield -label "MSISDN" -text ""]
$form append [lcdui.textfield -label "First_Name" -text ""]
$form append [lcdui.textfield -label "Second_Name" -text ""]
$form append [lcdui.textfield -label "District" -text ""]
$form append [lcdui.textfield -label "Sector" -text ""]
$form append [lcdui.textfield -label "Occupation" -text ""]
$form append [lcdui.textfield -label "Date of Birth" -text ""]
}