itcl - 如何回调 incr tcl 中的绑定等事件？

Question

例如我试过这个：

package require Itcl
package require Tk

::itcl::class X {
    constructor { } {
    canvas .c -height 200 -width 200
    bind .c <ButtonPress-1> {::itcl::code $this A}
}
method A { } {
    puts "inside A"
}
}
X aa

但是在画布上单击鼠标后，它不会进入方法 A 吗？请在这里帮助我。

Answer 1

我找到了解决方案：将 {::itcl::code $this A} 更改为 [::itcl::code $this A]