在 tcl/tk 中创建新窗口

【问题标题】：Create new window in tcl/tk在 tcl/tk 中创建新窗口
【发布时间】：2014-11-26 21:32:03
【问题描述】：

如何通过单击按钮而不关闭当前按钮每次创建相同的 gui？

wm title . "abcd"
wm geometry . 50x50
pack [button .b -text "new"]

请帮帮我。

【问题讨论】：

第一个 GUI 关闭时会发生什么？按new 按钮创建的所有其他按钮是否也应该关闭？
是的，所有的窗口都将关闭。

标签： user-interface tcl tk

【解决方案1】：

toplevel 命令创建一个新窗口供您放入小部件。在该窗口中使用构建整个 GUI 的过程是个好主意：

wm title . "abcd"
wm geometry . 50x50
pack [button .b -text "new" -command makeWindow]
set counter 0

proc makeWindow {} {
    # Make a unique widget name
    global counter
    set w .gui[incr counter]

    # Make the toplevel
    toplevel $w
    wm title $w "This is $w"

    # Put a GUI in it
    pack [label $w.xmpl -text "This is an example"]
    pack [button $w.ok -text OK -command [list destroy $w]]
}

您制作的每个窗口都可以根据需要独立或依赖于其他窗口。这取决于您如何编写代码、排列变量、设计回调等。

【讨论】：