perl tk button
各位大神：请问 perl Tk 的button ，可以设计为 双击 才调用绑定的脚本吗？
......
$line1->Button(-text => "测试1",-font=>'hzfs.shx 15 light',-activebackground=>'red2',
-anchor => 'w',-activeforeground=>'green2',-background=>'green',
-height=>1,-width=>15,-highlightcolor=>'blue',-highlightbackground => 'black',
-command => sub { destroy $mw;&outfilm } ) ->pack(-side => 'left' );
页:
[1]