After I manually changed all the hardwired ".top22..." in my tcl code, I
found that I also had to make the following change in lib/vtclib.tcl:
proc Window {args} {
global vTcl
set cmd [lindex $args 0]
set name [lindex $args 1]
set newname [lindex $args 2]
set rest [lrange $args 3 end]
if {$name == "" || $cmd == ""} {return}
if {$newname == ""} {
set newname $name
}
set exists [winfo exists $newname]
switch $cmd {
show {
if {$exists == "1" && $name != "."} {wm deiconify $name; return}
The last line above should say 'deiconify $newname',
not 'deiconify $name'.
...RickM...
