在tcl / tk中创建新窗口

Question

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

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

请帮帮我。

Answer 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]]
}

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