listbox.hcl

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

# listbox.hcl --
# listbox example

proc reverseoptions {listb} {
    set newlist {}
    set l [getprop $listb selected]
    foreach v $l {
	lappend $newlist [not $v]
    }
    setprop $listb selected $newlist
}

set lb [listbox label "Listbox Example" type multiple code {
    for {set i 0} {< $i 10} {incr $i} {
	string "Option $i"
    }
    cmd label "Reverse Options" code {reverseoptions $lb}
}]

setcurrent $lb