Tcl / Tk在新创建的窗口中创建按钮/小部件

时间:2013-09-05 06:26:03

标签: tcl tk

我想在按下特定按钮时创建一个新窗口,新创建的窗口应包含标签/条目/按钮。我的代码就是这样......

. configure  -width  400 -height 400 
label .header -text "Bitfields"
place .header -x 5 -y 0
 .................................
toplevel .window -width 100 -height 120

现在我想在新创建的窗口上创建一个按钮/标签。我该怎么做?谷歌主要提供tkinter的例子,我认为这些例子与我没有使用的python相关联。作为子问题,如何在从父窗口单击按钮时显示此窗口?

1 个答案:

答案 0 :(得分:3)

在新创建的窗口(称为.window)上创建按钮/标签:

button .window.button1 -text "ok"

要在父窗口中单击按钮时显示窗口:

proc showWindow {w} {
    catch {destroy $w}
    toplevel $w
    button $w.button1 -text "ClickMe"
    pack $w.button1
}
. configure  -width  400 -height 400 
button .header -text "Bitfields" -command "showWindow .window"
place .header -x 5 -y 0