perl tk button

21002700

各位大神：
請(qǐng)問 perl Tk 的button ，可以設(shè)計(jì)為 雙擊 才調(diào)用綁定的腳本嗎？

......
$line1->Button(-text => "測(cè)試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' );