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

大水牛

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

isaachs

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);

大水牛

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

isaachs

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

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

[ 本帖最后由 isaachs 于 2008-9-21 12:56 编辑 ]

socyno

use module Tk::StayOnTop

大水牛

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

大水牛

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