perl - 新しいウィンドウを開いた後に初期サブルーチンを実行するにはどうすればよいですか

Question

Perl/Tk スクリプトで新しいウィンドウを開いています。ウィンドウを開くときに初期サブルーチンを実行したいのですが (ウィンドウが開かれるたびに) どうすればよいですか?

Answer 1

1 つの方法は、ウィンドウを作成および/または表示するコードからサブルーチンを呼び出すことです。そのアクションの呼び出しではなくアクション自体に呼び出しをバインドする場合(おそらくコード内の複数の場所からウィンドウを開くことができるため)、イベント バインディングを作成する必要があります。例えば

$window->bind('<Map>', \&mysub);

正確に何をしようとしているのかによっては、代わりにCreate、Activate、またはVisibilityイベントにバインドしたい場合があります。詳細については、Tk イベント タイプのドキュメントを参照してください。