如何在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 

但點擊畫布鼠標後它不是一個方法裏面發生？ 請在這裏幫助我。

Answer 1

我找到了解決方案： 將{:: itcl :: code $ this A}更改爲[:: itcl :: code $ this A]