Как перехватить событие, когда пользователь нажимает кнопку "Закрыть" в окне верхнего уровня?

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 up\n";
   exit;
}