问题标签 [perltk]

我创建了一个包含“键”列、“值”列和“新值”列的表，如下图所示。“Key”和“Value”列被实现为标签，“Value”列被包装，如您所见。“新值”列被实现为条目小部件，因为它应该是可编辑的。有一个复制和粘贴按钮，可将值复制到“新值”输入字段。我想将文本包装在 Entry 小部件中，因此在按下按钮后，它看起来就像“值”字段中的文本。

显示我构建的表格以及包装标签与输入字段中的文本之间的差异的图像

这是定义显示列的代码：

我是 Tk/Perl 的新手。下面是我使用 tk/perl 创建的简单 GUI 界面。

图形界面

以下是创建此 GUI 的部分代码。

我想让用户在文本中输入的数字（22、23、24、25、26）在我的子程序中处理，但我无法从 shift -> get() 中获取它。有什么办法可以让用户在文本小部件中输入的所有数字？感谢您的帮助

我正在执行一个 perl 脚本作为其他更大代码的一部分。我的 perl 代码会根据状态值（成功或失败）打开一个弹出窗口。这个问题是，脚本不会继续执行其他部分代码，直到我关闭这个由 perl 创建的弹出窗口。我该如何解决这个问题。请帮忙。我想保持弹出窗口打开并继续执行父脚本的其他部分。我正在使用以下 perl 脚本打开弹出窗口。

我感谢您的帮助。

谢谢山姆

我刚开始 Perl Tk 并查看了一些教程，但我遇到了问题。当我单击一个按钮时，它会在条目小部件上显示我想要的标量。它可以工作，但是当我再次单击时，它会保留条目上所写的内容。所以我有两个你好。我知道它来自 insert(0, "Hello") 但我不知道该放什么而不是 0。

我正在尝试在使用 Perl TK 开发的 GUI 上提供滚动行为。

我想要实现的是，当鼠标悬停在诸如Scrolled包含 a的小部件上时ListBox，用户应该能够使用鼠标滚轮向上和向下滚动。如果鼠标位于小部件本身或小部件两侧的滚动条上，则鼠标计为在小部件上方。换句话说，如果鼠标在.Scrolled而不仅仅是ListBox.

我在下面包含了一个示例，该示例在鼠标悬停ListBox在.ListBoxScrolled

值得注意的是，对于鼠标滚轮的支持，这是我的示例中特定于 Windows 的。

示例脚本

虽然我已经发布了我称之为临时解决方案的内容，但很高兴知道是否有更可重用的方法来实现这一点。

在我的程序中，我有一段代码根据另一个列表框的值更新列表框。

执行此操作的代码看起来有点像这样。

这工作正常。但是，我发现简单地使用列表并在<<ListboxSelect>>. 我已使用 将此列表绑定到列表框-listvariable。

执行此操作的代码看起来有点像

这种方法的问题是，因为hashOfArraysOfStruct包含结构，列表框包含诸如 的值MyStruct=HASH(0x31d7e3c)。

有什么方法可以显示name结构的变量，而MyStruct无需遍历整个数组并将每个结果单独插入到列表框中？

MCVE

我需要在 perlTk 中设置一个文本框，这样我就可以输入带有自动添加分隔符的 2 位数字。

例如。如果有 5 个两位数的条目，即 52、25、69、45、15，在文本框中如果我输入这五个 2 位数字，则分隔符 (-) 应在每两位输入后自动添加。

最后的条目看起来像 52 - 25 - 69 - 45 - 15 请不要自动插入分隔符。

这有点类似于下面的 gif。 在此处输入图像描述

我尝试制作一个具有 $cmd_entry 的 GUI 来获取输入并在按下“enter”键后在 $log_frame 上打印输入。但是，绑定效果不佳。我不知道为什么回调函数有时会起作用，但有时不会。当我将键绑定更改为 时，它会在我按两次“Tab”时工作一次。

我有一个 perl TK 小部件，它有一个-command回调：

我想在命令 sub 内的小部件上调用一个方法。

如何以通用方式在回调中获取对小部件本身的引用（不是通过 $widget 的名称访问它，而是通过一些通用的方式）？

我已经查看了@_传递给子的参数，但它们只包含小部件的值和操作（例如“向上”）。我希望能够通过 $self 或“this”来访问小部件，就像在 javascript 中一样。

下面的代码Perl/Tk从 hash 中创建了填充每个事件详细信息的按钮%events。有没有办法格式化按钮内的文本，以便它以 printf 在第 16 行打印出来的方式出现在对齐的列中。