问题标签 [perltk]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
171 浏览

perl - 以编程方式取消选择文本

我正在使用文本小部件

我已经覆盖了右键单击以在我的 Perl/Tk GUI 中显示一个弹出菜单。但是每当我在任何位置右键单击时,从早期光标位置到我右键单击位置的文本都会突出显示。

我不知道是什么原因造成的,所以我只想以编程方式取消选择这个突出显示的文本。

我该怎么做呢?

谢谢!

编辑:

我为右键单击做了一个绑定,这是被调用的子例程:

我已经删除了sel标签两次(只是为了确定)。$rightMenu是弹出的菜单。右键单击时显示完美。

0 投票
1 回答
470 浏览

perl - 文本小部件中的行号和列号

是否有一些方法可以告诉您Perl/Tk 中Text小部件的行号和列号?

0 投票
2 回答
170 浏览

perl - 每当文本小部件中的光标位置发生变化时自动调用子程序

我正在使用该Tk::Text模块。

我希望每当用户更改Tk::Text模块内光标的位置时,它都应该充当触发器来调用我编写的子例程。

我该如何实施呢?

编辑:

正如 Donal Fellows 所回答的那样,我需要以某种方式查找在insert调用markSet例程时标记是否发生了变化。我已经在网上广泛搜索以找到解决此问题的方法,但无济于事。现在我需要你们帮助我。谢谢!

0 投票
1 回答
154 浏览

perl - 想要从 Perl 中通过 open 执行的命令中获取 die 错误消息

我正在尝试分叉出如下所示的 cmd

现在的问题是'$self{-command}' 正在调用另一个perl 脚本,如果死了我想知道。

请注意,即使 cmd 死了, $self{-pid} 仍然存在。

上面的代码在一个 Perl/TK 应用程序中,其中 $self->{-command} o/p 在文本小部件中捕获。

不知何故,即使在测试小部件中,我也没有收到 die 消息。我在标准输出上看到它。

2个问题

  1. 如何在文本小部件中获取 cmd 操作/错误?

  2. 我怎么知道通过 IO::Handle 触发的命令死了?

0 投票
2 回答
482 浏览

perl - perl Tk 中的 Checkbutton 正在选择所有选项

我正在使用循环在 perl tk 中创建一个检查按钮列表。

i 的正确值打印在屏幕上,但似乎所有的复选按钮都被选中了。我该如何避免这种情况?提前致谢。

0 投票
1 回答
582 浏览

perl - 使用 Perl/Tk 的多行输入

我正在使用 Perl/Tk 在 Perl 中尝试 GUI。我找不到使用任何小部件从用户那里获取多行文本输入的方法。对于单行“条目”可以使用,但我找不到多行输入。有什么办法吗?

0 投票
1 回答
1526 浏览

perl - 使用 Tk 在 Perl 中连续排列按钮/复选框

我想使用 Perl Tk 模块制作一个 GUI 应用程序,顶部有一个菜单栏框架,左右两个框架用于 i/o,在输入框架中,我希望在底部显示一些选项并排成一行。

我希望在框架底部有多个按钮/复选框,并排成一行。我尝试过像 -anchor=>'n' 这样的选项,但似乎都没有。

我当前的代码将“单击此处”放在“完成”之上,而我希望它们连续。应该怎么做(使用包几何管理器)?

0 投票
1 回答
369 浏览

perl - perl 如何打印到 perl/tk 列表框

如何将打印输出发送到 perl/tk 列表框,可以有无限的打印行。我知道如何创建列表框,但现在不知道如何调用列表框并打印到它。这是逐行生成打印的代码。

0 投票
1 回答
497 浏览

perl - 当我在 Perl/Tk 中单击条目/文本时,如何清除条目或文本小部件中的文本

有人可以用我的问题作为标题吗?我在创建的表单中有文本和条目小部件,但不知何故,我希望如果我可以为某些文本和条目小部件做一些事情,我会在其中放置“”字样,如果用户想要使用该条目,他们只需鼠标单击该列,“”字样将自动清除。我可以知道该怎么做吗?这是我没有单击鼠标即可清除功能的代码。谢谢。

0 投票
1 回答
240 浏览

perl - 如何在 Perl/Tk 中完成映射路径

我服务器的linux系统自带Perl v5.14.1,这个版本的Perl似乎不支持Tk-PathEntry小部件(请参考:https ://code.activestate.com/ppm/Tk-PathEntry/ ) . 我可以知道是否有任何替代方法可以做到,以便我可以在条目小部件中为我得到的示例脚本映射完成路径,如下所示?

我得到的错误消息似乎是我指向的 Perl 版本不支持 PathEntry 小部件:-假设'需要 Tk::PathEntry;' 在 path.ptk 第 14 行无法在 @INC 中找到 Tk/PathEntry.pm(@INC 包含:/nfs/disks/my_work/scripts/Tk-PathEntry-2.23/lib /usr/pkgs/5.14.1/lib64/ site_perl/x86_64-linux /usr/pkgs/perl/5.14.1/lib64/site_perl /usr/pkgs/perl/5.14.1/lib64/5.14.1/x86_64-linux /usr/pkgs/perl/5.14.1/ lib64/5.14.1 /usr/pkgs/perl/5.14.1/lib64/module/default/x86_64-linux /usr/pkgs/perl/5.14.1/lib64/module/default .) 在 /usr/pkgs/perl /5.14.1/lib64/module/default/x86_64-linux/Tk/Widget.pm 第270行

请建议。谢谢。