mirror of https://gitlab.com/QEF/q-e.git
21 lines
328 B
Tcl
21 lines
328 B
Tcl
tracevar lsym w {
|
|
if { [vartextvalue lsym] == "Yes" } {
|
|
groupwidget kpoints enable
|
|
} else {
|
|
groupwidget kpoints disable
|
|
}
|
|
}
|
|
|
|
tracevar lp w {
|
|
if { [vartextvalue lp] == "Yes" } {
|
|
widget filp enable
|
|
} else {
|
|
widget filp disable
|
|
}
|
|
}
|
|
|
|
postprocess {
|
|
varset lsym -value {}
|
|
varset lp -value {}
|
|
}
|