原文：
10.6. How do I add bindings?
On Fri, 15 Sep 95 10:30:56 BST Nick Ing-Simmons <Nick.Ing-Simmons@tiuk.ti.com> writes: Re: Multiple binds to a single widget?**************************************On Thu, 14 Sep 1995 14:57:54 -0400Alain St <astdenis@cmc.doe.CA> writes:!In the tcl/tk doc I have, they say that prepending the script !with '+' appends the new binding to the current one.!!How do I do that in perlTk? !
You cannot do that that way (yet?) - one issue is what it would mean to prepend '+' to a perl/Tk callback :
$widget->bind('<A>','+',[\&subname,$arg]); # did not look right to me
Other issue is that I would need to manage a list-of-callbacks in glue code.
Bind your new command to a new tag:
$widget->bind('Extra',....);
And add Extra to the widgets bindtags:
$widget->bindtags([ref($widget),$widget,'Extra', $widget->toplevel,'all']);
译文：
10.6. 如何设置绑定？
（译者注：这好像是一个邮件回复，不过已经很老了……）
On Fri, 15 Sep 95 10:30:56 BST Nick Ing-Simmons写到：
回复：如何给一个组件设置多个绑定？
*********************************
On Thu, 14 Sep 1995 14:57:54 –0400
Alain St写到：
！在Tcl/Tk中，我知道只要在代码中使用’+’就可以增加新的绑定了。
！那么在Perl/Tk中应该怎么做？
你不能用这样的方法做——一种方法是在Perl/Tk的回应函数前面加上’+’：
$widget -> bind(‘<A>’,’+’,[\&subname,$arg]);
＃但是这样不行。
另一种方法就是需要处理一个连串的会应函数的列表。
首先，将你的新功能绑定到一个新的标签上：
$widget -> bind(‘Extra’,…);
然后，把这个标签（Extra）添加到组件的“绑定标签”（bindtags）中：
$widget->bindtags([ref($widget),$widget,'Extra',$widget->toplevel,'all']);
（译者注：以我的理解，这中方法就是可以方便的实现给多个不同的组件设置同一种绑定，或给一个组件设置多个不同的绑定。建议有兴趣的朋友参阅一下手册perldoc Tk::bindtags）