当用户单击顶层窗口中的“关闭”按钮时，如何拦截事件？

Question

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

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

我查看了the 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;
}