choicegroup.hcl

来自「Hecl编程语言是一个高层次的脚本语言的Java实现。其用意是要小」· HCL 代码 · 共 21 行

# choicegroup.hcl --

# choicegroup example

set langlist {English French German Italian Spanish}

proc NewLang {} {
    global sel
    global cg
    global langlist
    set lang [getprop $cg selected]
    setprop $sel text [lindex $langlist $lang]
}

set f [form label "ChoiceGroup example" code {
    stringitem label "Chose from one of the following"
    set cg [choicegroup label "Languages" list $langlist callback NewLang]
    set sel [stringitem label "Selected" text ""]
}]

setcurrent $f