Hecl Builder

Average rating:

proc sendit {} {
    global label_

    setprop $label_ label "Scanning ..."
}

proc saveit {} {
    global name_
    global bday_
    global number_
    global label_

    set name_s [ getprop $name_ text ]
    set bday_s [ getprop $bday_ text ]
    set number_s [ getprop $number_ text ]

    setprop $label_ label "Saved ..."
}

set first [form label "SMSApp" code {
    stringitem label "Choose ..."

    cmd label "Store" code saveit
    cmd label "Scan" code sendit

    set name_ [textfield label "Name:"]
    set bday_ [textfield label "DOB:"]
    set number_ [textfield label "Contact:"]

    set label_ [ stringitem label " " ]
    
}]

setcurrent $first