如何让perl/Tk的窗口固定显示在屏幕的最前面？

大水牛

UID: 46737
帖子: 14
积分: 32
在线时间: 10 分钟

1^# 大水牛发表于 2008-09-21 10:17

如何让perl/Tk的窗口固定显示在屏幕的最前面？

请教各位，如何让perl/Tk的窗口固定显示在屏幕的最前面？其实就是一个语句。请高手指点。给个例子。谢谢！

isaachs

UID: 11020
帖子: 62
积分: 142
在线时间: 5 小时

2^# isaachs 发表于 2008-09-21 11:51

http://www.perlmonks.org/?node_id=205382
关键是这句：
Win32::API->new("user32","SetWindowPos",[qw(N N N N N N N)],'N')->Call(hex($mw->frame()),-1,0,0,0,0,3);

大水牛

UID: 46737
帖子: 14
积分: 32
在线时间: 10 分钟

3^# 大水牛发表于 2008-09-21 12:22

对了。我想要的是在liunx下实现，不是在window系统。谢谢。

isaachs

UID: 11020
帖子: 62
积分: 142
在线时间: 5 小时

4^# isaachs 发表于 2008-09-21 12:54

QUOTE:

原帖由大水牛于 2008-9-21 12:22 发表
对了。我想要的是在liunx下实现，不是在window系统。谢谢。

请仔细看了内容在回帖，谢谢~！
最上面的链接是perlmonk里的解决方法，亦有linux！

socyno

UID: 40994
帖子: 0
积分: 0
在线时间: 10 分钟

5^# socyno 发表于 2008-09-21 13:49

use module Tk::StayOnTop

大水牛

UID: 46737
帖子: 14
积分: 32
在线时间: 10 分钟

6^# 大水牛发表于 2008-09-22 19:48

2楼,5楼的兄弟,我试了use module Tk::StayOnTop .程序运行起来是在最前面,可一开其他窗口,他还是别压在后面.我是想让此窗口一直把持在最前面.2位兄弟给个linux版的范例好吗?

大水牛

UID: 46737
帖子: 14
积分: 32
在线时间: 10 分钟

7^# 大水牛发表于 2008-09-23 20:30

各位高手，帮帮忙，别让贴沉了。