TSperl 発言

中村 のりつぐ です。

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

以下のようにしてみました。
(フレームでなくて top に bind しちゃったのですが…)

#!/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;
  $top->bind('<Button>', sub { exit });
  $top->bind('<Return>', sub { exit });
  #$f->bind('<Button>', sub { exit }); # ?
}

       中村 典嗣  E-mail:     nnakamur@...