问题标签 [perltk]

我尝试使用 CPAN 模块中的片段来实现上述目标，Tk::ExecuteCommand但是当我在该$ec->configure(-command部分中执行任何 Perl 程序时，它会在下面给出错误。

此外，一旦 Perl 作业完成，窗口将意外关闭。如果我只是在条目中打印文本而不是命令（正如我注释掉的行），脚本可以工作并且不会关闭。我选择使用这个 Cpan 程序是因为我想要两件事：

1. 在文本小部件中显示系统命令和运行结果。
2. 在作业运行时让“执行按钮”变为“取消”，以便用户有机会取消正在进行的作业。
   我可以知道如何实现吗？

这是我得到的错误消息：

[13] 退出 127 test1.pl

这是我使用的代码：

我正在使用 FVWM2，它允许我通过窗口装饰绑定将当前 X11 WindowID 发送到我喜欢的任何脚本。

因此，单击可能会执行以下形式的 CLI 程序：

bash#example.pl

在这种情况下，WindowID 指的是已经存在的窗口。不是由 example.pl 生成的。

例如，如果 example.pl 是一个屏幕捕获实用程序，它将需要由 标识的窗口的 X11 几何字符串来运行捕获。我可以从 xwininfo 输出中解析这些数据。但这不是便携式的。

如何在 Perl 中以编程方式从 WindowID 获取 X11 几何图形？

单击提交按钮时，应调用回调函数。打印回调期间传递的所有参数不起作用。但它进入回调函数。如何访问传递的变量以便我可以插入表中。

在工作中处理一些 Perl/Tk 代码以着色和显示预先编写的代码文件。该程序的着色和显示都很好。我唯一的问题是，如果我将窗口大小重新调整得更小，滚动条和文本窗口就会消失，而不是动态调整大小以适应新的窗口大小。有没有办法修复我的代码，以便滚动条、文本区域等在调整大小时保持完全可见？谢谢你提供的所有帮助。

要显示的文本被解析，然后作为变量 $macro 传递。我省略了用于解析文本的子例程和用于着色的代码，因为它似乎工作正常并且不包含任何格式说明，所以我非常怀疑它是否会涉及调整大小问题。这是我的代码：

编辑：解决方案是在调用 MainLoop 之前添加以下代码行；

我有一个 BrowseEntry，其文本右对齐，如下面的代码所示。

但是这个 BrowseEntry 的下拉列表带有左对齐的文本。我还需要右对齐此列表中的文本。有没有办法我可以做到这一点？

我试过了

但这不起作用，并且会出错。

上面的代码片段没有成功，它只禁用了几毫秒的按钮，并且即使在批处理文件运行之前，按钮也立即处于活动状态。

我对 Perl/Tk 完全陌生，并试图制作一个需要多个下拉菜单的应用程序。我为此使用选项菜单。但是当我在运行时更改一个选项菜单的值时，所有下拉菜单的值都会更改为该值。请在这方面提供帮助。这是代码：

我必须准备一个 GUI，Perl/Tk 应该在其中调用批处理命令（路径硬编码的本地命令）和传递参数（这是用户选择的 .csv 文件）-当用户按下 GENERATE 按钮时-此处简化就像在记事本中打开 .csv 文件一样。有人能帮我吗 ？

我想做的是有一个按钮来关闭我的窗口（button_window），同时也调用一个函数（user_info）：

它只执行最后一个命令提前谢谢

我需要 Perl 程序的图形输出。该窗口有一个label状态字段，应该显示编程代码决定的内容。

创建没有任何按钮的窗口后，如何更改标签字段的文本？

我有以下内容：

如何合并以下子例程，以便在创建窗口后自动运行？Label-Widget没有-command字段。它应该立即开始，而不是等待事件发生