perl - ユーザーがトップレベル ウィンドウで「閉じる」ボタンをクリックしたときにイベントをインターセプトするにはどうすればよいですか?

Question

ユーザーがトップレベル ウィンドウでシステム提供の閉じるボタンをクリックすると、リソースを解放する必要があります。

質問: このイベントをインターセプトして、独自のコードを呼び出すにはどうすればよいですか?

docsを調べましたが、トップレベル ウィンドウの破棄については何も見つかりません。

Answer 1

use warnings;
use strict;
use Tkx;

my $mw = Tkx::widget->new('.');
$mw->g_wm_protocol('WM_DELETE_WINDOW' => \&cleanUp);

Tkx::MainLoop();

sub cleanUp
{
   print "Cleaning things up\n";
   exit;
}