button - Windows で Perl/Tk ウィンドウの閉じる ('X') ボタンを無効にする方法

Question

Perl/Tk ウィンドウの閉じる ('X') ボタンを無効にする方法はありますか? hereで説明されている手法を使用してクリックを無視する方法は知っていますが、無効にしたほうがよいでしょう。

Windows で Perl/Tk を使用しています。

ありがとう、
破片

Answer 1

私は自分が書いたアプリを持っています、私は同じことについて疑問に思っていました、そして私はそれを無効にしません、しかし私はサブルーチンへのコールバックを持っています、それは単にしますreturn;

$Mw->protocol('WM_DELETE_WINDOW',sub{return;});

Answer 2

Perl Monksによると、 Windows では次のように動作するようです。

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $window = new MainWindow;
$window ->title("Close test");
$window ->geometry("400x250");

#prevents window from closing
$window->protocol('WM_DELETE_WINDOW' => sub {
                       print "Do stuff before exiting\n";
                       exit;
                   });

MainLoop;

上記のコードでは、ユーザーが「X」を押したときに送信されるシグナルをインターセプトし、ボタンが押されたときに実行する独自のサブルーチンを作成できます。

閉じるアイコンを無効にする場合は、空に設定subします (「押されても何もしない」ように効果的に伝えます)。'WM_DELETE_WINDOW' => sub {}