On Fri, 10 Jan 1997, Glen Walker wrote:
> Perhaps it's my misunderstanding the way to use vtcl, but there's a
> quick way to loose alot of carefully crafted toplevels in vtcl.
Here's a fix. Edit the lib/dump.tcl file and add this to the top of
the vTcl:dump_top procedure right after the global statement:
if ![winfo exists $target] {
set procname $vTcl(winname)$target
if {[info procs $procname] != ""} {
set procargs [info args $procname]
set procbody [info body $procname]
return "\nproc $procname \{$procargs\} \{$procbody\}\n"
}
}
or if you use patches, this will do:
*** vt-1.07/lib/dump.tcl Thu Jan 9 02:27:43 1997
--- vt-1.08/lib/dump.tcl Sun Jan 12 01:10:17 1997
***************
*** 301,306 ****
--- 303,316 ----
proc vTcl:dump_top {target} {
global vTcl
+ if ![winfo exists $target] {
+ set procname $vTcl(winname)$target
+ if {[info procs $procname] != ""} {
+ set procargs [info args $procname]
+ set procbody [info body $procname]
+ return "\nproc $procname \{$procargs\} \{$procbody\}\n"
+ }
+ }
if {[winfo class $target] != "Toplevel" && $target != "."} {
return
}
-stewart-
