Hello,
I installed tcl7.5 & tk4.1 then tried to install vtcl1.08 ...
I am unable to start vtcl from the directory since it says some lib
missing, but in fact its there ....
When i run vtcl the logo gif appears & then some error ...
ANy help is appriciated ..
thanks
satish dattatri
The structure is :
~/bin tcl7.5 & wish4.1 are residing ....
~/bin/vt-1.08 vtcl is there .. I have modified vtcl as foloows.
CONTENTS of vtcl :
#!/bin/sh
PATH_TO_WISH=../wish4.1
VTCL_HOME=../vt-1.08
export PATH_TO_WISH
export VTCL_HOME
exec ${PATH_TO_WISH} ${VTCL_HOME}/vt.tcl
-----------------------------------------
When i execute vtcl from the ~/bin/vt-1.087 directory the error msg is :
--------------------------------------------------------------------------
Missing Libary: ../vt-1.08/lib/lib_core.tcl
can't read "vTcl(classes)": no such element in array
while executing
"lsearch $vTcl(classes)..."
invoked from within
"if {[lsearch $vTcl(classes) $class] >= 0} {
return 1
} else {
return 0
}"
(procedure "vTcl:valid_class" line 3)
invoked from within
"vTcl:valid_class $class"
invoked from within
"if {![vTcl:valid_class $class]} {
return Toplevel
} else {
return $class
}"
(procedure "vTcl:get_class" line 3)
invoked from within
"vTcl:get_class $target"
invoked from within
"if {[vTcl:get_class $target] == "Toplevel"} {
wm protocol $target WM_DELETE_WINDOW "vTcl:hide_top $target"
wm protocol $target ..."
invoked from within
"if {[lsearch [bindtags $target] vTcl(b)] < 0} {
set vTcl(bindtags,$target) [bindtags $target]
if {[vTcl:get_class $target] == "Topleve ..."
(procedure "vTcl:setup_bind" line 3)
invoked from within
"vTcl:setup_bind $i"
("foreach" body line 2)
invoked from within
"foreach i $bindlist {
vTcl:setup_bind $i
}"
(procedure "vTcl:setup_bind_tree" line 5)
invoked from within
"vTcl:setup_bind_tree ."
(procedure "vTcl:setup_gui" line 19)
invoked from within
"vTcl:setup_gui"
(procedure "vTcl:setup" line 26)
invoked from within
"vTcl:setup"
invoked from within
"if {$tcl_version < 7.5} {
wm deiconify .
wm title . "Time to upgrade"
frame .f -relief groove -bd 2
pack .f -expand 1 ..."
(procedure "vTcl:main" line 6)
invoked from within
"vTcl:main $argc $argv"
(file "../vt-1.08/vt.tcl" line 501)
