将按钮添加到 tcl gui

Question

我创建了一个包含许多选项卡的图形用户界面，我想将按钮添加到选项卡 1。

但是我不擅长tcl，有人可以帮助如何将按钮添加到TCL gui 吗？

此致

toplevel .test
wm transient .test.
set pw [ttk::panedwindow .test.pw -orient vertical]
set nb [ttk::notebook $pw.nb]
foreach i {1 2 3 4} {$nb add [frame $nb.f$i] -text tab$i}
set fTkCon [frame $pw.fTkConContainer -container 1]
$pw add $nb
$pw add $fTkCon
pack $pw -fill both -expand
#add button here# ::hwtk::button  -text "Text Button" -help "Text only"

Answer 1

我稍微简化了代码使其成为运行:

package require Tk

ttk::notebook .nb
pack .nb
foreach i {1 2 3 4} {
    .nb add [button .nb.f$i -text "Button $i"] -text tab$i
}

通知将按钮添加到选项卡，我将笔记本添加命令中的 frame 的创建交换为 button 的创建。

Answer 2

在 foreach 循环中，您创建了 4 个框架（$nb.f1 到 $nb.f4）。要在 tab1 中添加按钮，您通常应该将小部件创建为相应框架的子级。然后您需要使用几何管理器来控制小部件的显示位置。刚开始使用 GUI 时，网格可能是最简单的选择。

ttk::button $nb.f1.b1 -text Button! -command {puts Pressed!}
grid $nb.f1.b1 -padx 5 -pady 5

注意：在交互式会话中执行此操作时，您可能需要调整 window 的大小并移动窗格的窗扇 window 才能看到按钮。

将按钮添加到 tcl gui

adding button to the tcl gui

tk

tcl