向tcl gui添加按钮

Question

我创建了一个带有许多选项卡的gui，我想在tab1中添加按钮。

但是我不擅长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

注意：在交互式会话中执行此操作时，您可能必须调整窗口大小并移动平移窗口的窗框才能看到按钮。