如何将小部件绑定到Virtuell事件

Question

我想要将多个小部件注册到一个虚拟事件。这是代码的概念。但是我没有发现，我怎么能从顶层发送下来＆＃34;。＆＃34;到任何注册虚拟事件的小部件。

 1  #!/bin/sh
 2  # \
 3          exec tclsh "$0" "$@"


 4  package require Tk
 5  proc send { } {
 6      puts "send event"
 7      event generate ***HERE IS MY PROBLEM *** <<TEST>>
 8  }

 9  label .l1 -text label1
10  label .l2 -text label2
11  button .b1 -text event -command send

12  bind .l1 <<TEST>> {puts "here 1"}
13  bind .l2 <<TEST>> {puts "here 2"}

14  grid .l1 
15  grid .l2
16  grid .b1

找到了这个解决方案：

 7      event generate . <<TEST>>
...
14  set tags [bindtags .]
15  bindtags . [list {*}$tags .l1 .l2]

在＃34; destroy .l1＆＃34;之后会有必要的房子吗？ ？