Tcl 如何独立显示多个窗口？

我正在编写一个GUI，我想用相同的界面和独立的窗口打开多个窗口。但是当我尝试在一个窗口中输入，而另一个窗口显示相同的内容时，我会问，如何使窗口独立？例如：

foreach name {test1 test2} {
    namespace eval $name {
        variable InputStr
        variable wid
        proc Display {var} {
            variable InputStr
            variable wid 
            set wid .$var

            destroy $wid
            toplevel $wid

            wm title $wid $var
            entry $wid.en -textvariable InputStr 
            pack $wid.en
        }
    }   
    ${name}::Display $name
}

---

他们为什么要依赖？如何解决这个问题

给定一个非限定变量名，entry小部件假定该变量是全局变量，并在两种情况下使用相同的变量。试一试

entry $wid.en -textvariable [namespace current]::InputStr

或

---

根据问题中的定义，这应该是同一件事

给定一个非限定变量名，entry小部件假定该变量是全局变量，并在两种情况下使用相同的变量。试一试

entry $wid.en -textvariable [namespace current]::InputStr

或

---

根据问题中的定义，这应该是同一件事

非常感谢！那真的很有帮助。非常感谢！这真的很有帮助。有趣的代码带有纯正的“Tcl风格”。有趣的代码带有纯正的“Tcl风格”。