问题标签 [perltk]

我想在顶层窗口中打开一个窗口，在打开该窗口之前，我应该无法移回任何以前打开的窗口。这是我的代码：

我想让这个另一个窗口与顶层窗口相同，这样当我按下按钮并且直到该窗口保持打开状态时，我不能使用任何其他打开的窗口。

如何在 Perl/Tk 中包装显示在气球中的文本？

我的代码是这样的

但是气球中的这个帮助文本超出了屏幕边界。有没有办法包装在气球中显示的文本？

我是perl. 我想知道如何使用这个模块。我在某个地方读到了这个模块，但没有得到它的用法。

实际上我有一个文件，其中包含一些环境路径，在使用特定工具运行一些测试（比如文件名是SET_ENV_TOOL1.csh或）时需要设置这些路径。（比如，等等）SET_ENV_TOOL1.shTOOL1TOOL2

每次运行测试时，工具可能会发生变化，因此还需要设置环境路径以运行该工具。

我必须制作一个 perl 脚本，在运行测试之前设置这些路径。该测试将运行一个命令，该命令将使用这些环境路径。

任何帮助将不胜感激。谢谢 ！！

我正在使用 Perl 和 Tk 来显示一个带有图像的窗口。它以白色背景，黑色背景，图像（1280x800）的模式循环显示图像，重复。问题是我需要能够查看整个图像。Tk 在图像顶部添加了一个 2 像素的边框，包括黑白背景。这是我的代码...

我知道这overrideredirect消除了大部分额外的东西，但它仍然没有给我一个裸露的窗口。我尝试添加-borderwidth=>0到画布创作中，但它没有任何改变。

边框会立即出现并且永远不会消失，而不仅仅是在显示第一张图像时。

这个边框可以去掉吗？如果是这样，怎么做？

我正在使用 Perl“Tk”为外部命令（“sox”，如果有帮助的话）编写一个包装器。当然，我需要异步运行它，以避免阻塞 tk 的 MainLoop()。但是，我需要阅读它的输出以通知用户命令的进度。

我正在使用 IPC::Open3 测试这样的解决方案：

但是当然，while 循环会阻塞 MainLoop，直到 $cmd 确实终止。

有什么方法可以异步读取输出句柄吗？还是我应该使用标准叉子？该解决方案也应该在win32下工作。

我遇到了一个小问题。

当我在脚本的主块中创建线程时，应该在 while(1) 循环中获取 $txt 值，同时程序创建 TopLevel 窗口并且 $txt 字符串中有一个 Text() 对象。

我想从 Text() 对象中读取值，仅在创建 Text() 对象时，而不是更早。

在我的示例中 $txt 应该是一个全局变量，但我的线程仅通过 'undef' 读取 $txt 变量。

当其他子例程更改变量时，是否可以从 while(1) 循环中读取变量？

我必须在线程中观看 $txt var，因为当我尝试在 makeTop() 中启动线程时，Tk 给了我关于不存在字符串的错误。

感谢您的建议。

代码：

我的程序中有标量问题。

我得到这样的代码：

我遇到了$label->configure(-text => 'i need this');这样的错误：

Invalid value for shared scalar at xxx.pl

我只需要从线程更新我的标签文本，我不能这样做。

感谢您的建议。

在 Perl/Tk 中，可以像这样绑定事件：

是否有可能从另一个方向获得这些信息？我可以拨打“获取按键状态”或“检查是否按下 W”之类的电话吗？

它不会直接对事件做出反应。

当然，有可能为各种事件填充变量，但我想知道是否有这样的方法。

我需要在命令中运行带有变量的命令。我需要捕获输出并将其保存在一行变量或数组中，这没关系。无论如何，它将被粘贴到 Tk 中的文本框中。

我试过了：

我真的不能使用：

由于里面的变量，我认为这是其他stackoverflow帖子的建议。

它适用于：

因为里面没有变量，除非有办法包含变量并让 $readvariable 捕获输出？提前致谢。

这是我的代码（这个打印为零）：

如果可能，我需要通过将数组绑定到选项菜单来自动更新 Perl Tk 中的选项菜单。

举个例子，我可以用一个列表框成功地做到这一点：

但是，当我尝试对选项菜单执行相同操作时，它无法自动加载。

这不可能吗？还是我做错了什么？谢谢。