I tried to make a second instance of a toplevel by passing an argument for
the base variable.
I use the widget aliases heavily and couldn't see any support for them in
this case and wrote these lines to add an alias and its reverse for the
second instance:
proc My_vTcl:create_base_alias {target base} {
global widget
set alias [string trim $base .]
set newpath [vTcl:base_name $widget($target)]
set widget($alias) [subst $newpath]
set widget(rev,$widget($alias)) $alias
}
Tests show that the above code works, but the Window call fails because
many (178 at the moment) of the geometry statements look like this:
pack $base.fra23.cpd25 \
-in .top22.fra23 -anchor center -expand 0 -fill none -side top
grid $base.fra23.cpd25.01 \
-in .top22.fra23.cpd25 -column 0 -row 1 -columnspan 1 -rowspan 1 \
Of course, the '-in .top22...' statements fail. I haven't tried changing
these manually to '-in $base...' but maybe it's that simple.
I thought I saw this reported some time ago, but I'm sure I'm using the
latest version.
Is this a buglet or did I miss something?
...RickM...
