如何使用跨按钮的labelframe

时间:2016-05-11 06:29:00

标签: tcl tk

我有一个带标签,条目和按钮的小部件。

我想将它们放在一个labelframe中,以获得更有意义和更直观的理解。

我已将网格上的标签按钮和条目网格化,现在我无法使用pack for labelframe。有什么方法可以在我的条目,按钮和标签周围添加labelframe吗?

摘自我的代码:

grid .top.d.f2.a0 -row 3 -column 2 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid .top.d.f2.a -row 4 -column 2 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

grid .top.d.f2.ent1 -row 3 -column 3 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid .top.d.f2.ent2 -row 4 -column 3 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

grid .top.d.f2.b1 -row 3 -column 4 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid .top.d.f2.b2 -row 4 -column 4 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

我尝试使用:

set w [labelframe .top.d.f2.lb -text setup_options]
grid $w

enter image description here

1 个答案:

答案 0 :(得分:2)

您需要先创建labelframe,然后用标签,条目和按钮填充它,这样它们就成了该小部件的子代:

set w [labelframe .top.d.f2.lb -text setup_options]
grid $w

# Create the labels, entries and buttons here, for example:
# label $w.a0 -text "Memory List"

grid $w.a0 -row 3 -column 2 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid $w.a -row 4 -column 2 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

grid $w.ent1 -row 3 -column 3 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid $w.ent2 -row 4 -column 3 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

grid $w.b1 -row 3 -column 4 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2
grid $w.b2 -row 4 -column 4 -sticky nsew -padx 2 -pady 2 -ipadx 2 -ipady 2

(未测试的)