当用户单击顶级窗口中的"close"按钮时，如何截获事件？

Question

当用户在顶层窗口中单击系统提供的关闭按钮时，我需要释放资源。

问题是：如何拦截此事件，以便调用自己的一些代码？

我看过文件，但找不到任何关于破坏顶层窗户的信息。

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 upn";
   exit;
}