Help for this page
$dialog->protocol('WM_DELETE_WINDOW' => sub { print "nope\n"; });
my $dialog = $Global::mw->Dialog()