248. フレーム上でのクリックか[Enter]で終わらせたい

　皆さん、こんにちは。

　以下のような Perl/Tk スクリプトを書いています。不慣れなのでよくわから
ないのですが、このフレーム上にてマウスをクリックするか、このウィンドウが
アクティブの時[Enter]キーを押してスクリプトを終わらせることはできるでしょ
うか。やはりボタンを作ってクリック、などしないとだめでしょうか。

#!/usr/bin/perl
use Tk;

main();
MainLoop();

sub main {
  my $top = new MainWindow( -title => "Test" );
  my $f = $top->Frame->pack( qw/-side left/ );
  $f->Label(qw/-wraplength 4.5i -justify left -text/ => "Click here or Hit [Enter] to end.")->pack;
}

--
本田博通（閑舎）
テキストとスクリプトの http://rakunet.org/TSNET/