tcl - 如何在 tcl/tk 中绑定一些变量值？

Question

假设我们有一些变量 x，最初 x=0。
每当 x 将其值从 0 更改为 1 时，单击某个按钮 A
每当 x 将其值从 1 更改为 2 时，单击某个按钮 B
每当 x 将其值从 2 更改为 0 时，单击某个按钮 C
...

怎么做 ？

Answer 1

这是一个简单的示例，它x每秒更新一次，并trace在变量更新时使用 a 来调用按钮按下，具体按钮取决于新值。

#!/usr/bin/env wish

grid [ttk::button .a -text A -command {puts "Buttom A pushed"} -state active]
grid [ttk::button .b -text B -command {puts "Button B pushed"}]
grid [ttk::button .c -text C -command {puts "Button C pushed"}]

set x 0

proc update_gui {name _ _} {
    upvar $name v
    switch -- $v {
        0 { .c state !active; .a state active; .a invoke }
        1 { .a state !active; .b state active; .b invoke }
        2 { .b state !active; .c state active; .c invoke }
    }
}

proc update_x {} {
    variable x
    set x [expr {($x + 1) % 3}]
    after 1000 update_x
}

trace add variable x write update_gui
after 1000 update_x