如何将 TkCon（或其他 Tk 控制台）嵌入为小部件？

发布于 2024-10-20 00:03:45 字数 457 浏览 2 评论 0原文

我想制作一个 Tcl/Tk 应用程序，它主要是一个传统的菜单和按钮直接操作工具，其中大部分交互是通过在 Tcl/Tk 中实现的图形界面进行的。

但是，对于某些高级用途（和调试），我希望在主窗口中有一个小部件（子窗口），其中包含 Tk 控制台，我可以在其中键入命令、查看输出以及以其他方式控制应用程序。

启动 TkCon（或希望）并获得一个顶级窗口，然后在单独的顶级窗口中创建我的应用程序界面似乎很容易。这样应用程序就可以正常工作，但我希望两个窗口成为同一布局的一部分，一起移动，支持调整大小等。

有没有一种简单的方法可以使用 TkCon 来做到这一点？

我还希望 TkCon 窗口能够显示从我的应用程序中冒出的消息（例如，调试输出）。一些消息将由 Tcl 代码生成；其他人则通过构成我的应用程序一部分的 C 代码来实现。我不需要捕获这样的标准输出——我愿意调用一个特殊用途的函数来传递消息——但不清楚让它们像这样显示的最有效方法是什么。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

野生奥特曼 2024-10-27 00:03:45

对于 tkcon 具体请参见 Donal 的回答。不过，我要补充的是，您可以嵌入 Windows 上使用的 Tk 内置控制台。该脚本可在非 Windows 上使用，并且可以嵌入到例如选项卡式笔记本页面中。
请参阅 tkchat_console.tcl 是一个示例 - 该文件加载 Tk console.tcl 文件，底部的 ::tkchat::EmbeddedConsoleDemo 函数显示了如何使用它。

回复收藏 0 原文

心凉怎暖 2024-10-27 00:03:45

以下代码对我有用：

set f [labelframe $p.console -text "Interactive:"]
frame $f.test -container 1
namespace eval ::tkcon {
    set OPT(exec) {}
    set PRIV(root) .tkcon
    set embed_args {}
}
option add *tkcon.Use [winfo id $f.test] interactive
package require tkcon
tkcon::Init

此代码通过“X11选项”将se -use选项添加到tkcon顶层。 ::tkcon::embed_args 也至关重要。

The following code works for me:

set f [labelframe $p.console -text "Interactive:"]
frame $f.test -container 1
namespace eval ::tkcon {
    set OPT(exec) {}
    set PRIV(root) .tkcon
    set embed_args {}
}
option add *tkcon.Use [winfo id $f.test] interactive
package require tkcon
tkcon::Init

This code addse -use option to tkcon toplevel via "X11 options". ::tkcon::embed_args is also vital.

回复收藏 0 原文

神妖 2024-10-27 00:03:45

阅读文档我只看到让它正常工作的方法官方作为它自己的顶层窗口。（特别是，tkcon new 不接受任何参数...）所以我们正在谈论一种黑客来获得你想要的东西。

如果您拥有 Tk 8.6 并且不在 OSX 上（或者在该平台上使用基于 X11 的构建），您可以使用 wm忘记并以这种方式嵌入，但我不知道是否缺乏控制在这种情况下，超过小部件名称会造成伤害。

否则，如果您有 BLT 可用，我相信它能够重新设置父级小部件。我从未尝试过这样做，所以这是传闻，但它可能能够将顶层放在另一个小部件中。

变得更黑客，您可以编辑 tkcon 源，以便可以指定 -use 选项到它创建的顶层。这将允许您将其放置在另一个小部件中（带有 < code>-container 选项已打开；您必须使用 winfo id 也），但同样，它有点复杂，我不知道这样做会对您的平台产生什么后果。这应该适用于旧版本的 Tk（它是 Tcl/Tk 浏览器插件功能的基础）。