Perl/TK窗口，没有装饰，可以用鼠标移动

Question

我有一个Perl/Tk窗口，它显示在所有其他窗口的顶部。它是一个带有文本的MainWindow->Frame->Label(它是一个安全分类横幅)。肯定是上面有个窗户。但是，现在用户不能将窗口从其设置的位置移动，因此它偶尔会掩盖较低的窗口控件。

我怎样才能使这个窗口移动，以便它可以重新定位?

我不容易访问外部模块，因为我在一个封闭的网络上，所以简单的Perl/Tk代码是最好的。

这是一个运行KDE或Gnome桌面的Linux系统。

Answer 1

我发现，如果您从Perl/TK主窗口中删除装饰，那么它就无法响应鼠标移动。