perl/tk的右上角关闭叉叉(关闭按钮)如何屏蔽?

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

1^# abmyself 发表于 2005-04-05 14:50

perl/tk的右上角关闭叉叉(关闭按钮)如何屏蔽?

perl/tk的右上角关闭叉叉(关闭按钮)如何屏蔽?

perl/tk的右上角关闭叉叉(关闭按钮)如何屏蔽?

主要是避免user随意中止程序,在Solaris中倒只剩下最大与最小按钮,
而在Linux(GNome及KDE)环境中却多了个这个叉叉...

how to disable it ? thank you!

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

2^# abmyself 发表于 2005-04-05 15:12

没人回...?...

chinaonly

UID: 9548
帖子: 2
积分: 4
在线时间: 10 分钟

3^# chinaonly 发表于 2005-04-05 16:55

好像没有办法，...
好像没有办法，但你可以重载窗口关闭的消息，然后不去关闭窗口就行了。

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

4^# abmyself 发表于 2005-04-07 08:24

[quote]回复给 ...
[quote]回复给 chinaonly : 好像没有办法，......[/quote]

Could you tell me more details ? thank you very much~

chinaonly

UID: 9548
帖子: 2
积分: 4
在线时间: 10 分钟

5^# chinaonly 发表于 2005-04-07 15:48

use Tk;--$ro...
use Tk;
$root = MainWindow->new();
$root->protocol(WM_DELETE_WINDOW,sub{return -1});
$root->MainLoop();

abmyself

UID: 13861
帖子: 134
积分: 308
在线时间: 1 天

6^# abmyself 发表于 2005-04-07 16:28

Oh, yeah, it i...
Oh, yeah, it is OK now!

[b]protocol(WM_DELETE_WINDOW,sub{return -1});[/b]

i haven't see this function before, where can you find it ?chinaonly!

Thank you very much!

chinaonly

UID: 9548
帖子: 2
积分: 4
在线时间: 10 分钟

7^# chinaonly 发表于 2005-04-07 16:52

Perl Tk 的文档...
Perl Tk 的文档里面有（perl/html/site/tk/wm.html），我是以前看书知道的，是一本Tcl/Tk的书。

chinaonly

UID: 9548
帖子: 2
积分: 4
在线时间: 10 分钟

8^# chinaonly 发表于 2005-04-07 16:53

在Hoowa以前的网站的论坛上也看到过，有人提过类似的问题！