如何在incr tcl中回调像bind这样的事件？

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]