alert.hcl

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

# alert.hcl --

# alert example

proc DoAlert {} {
    global tf
    set txt [getprop $tf text]
    setcurrent [alert label "Alert Example" text $txt]
}

set f [form label "Alert Example" code {
    set tf [textfield label "Alert text:"]
    cmd label "Run alert" code DoAlert
}]

setcurrent $f