diff --git a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl b/opt/insight-git/share/insight1.0/main.tcl index 1561cd5..39d1aaf 100644 --- a/mnt/sdd1/home/src/insight-git/insight/gdbtk/library/main.tcl +++ b/opt/insight-git/share/insight1.0/main.tcl @@ -56,6 +56,8 @@ if {[info exists auto_path]} { # Require the packages we need. Most are loaded already, but this will catch # any odd errors... : +puts "" +puts "insight auto_path is:$::auto_path" foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} {iwidgets 4.0} {gdbtk 1.0} {combobox 2.2} {debug 1.0}} { set failed [catch {package require [lindex $p 0]} msg] if {$failed} { @@ -74,7 +76,7 @@ foreach p {{tcl 8.5} {tk 8.5} {itcl 3.3} {itk 3.3} {iwidgets 4.0} {gdbtk 1.0} {c } exit -1 } - #puts "Loaded [lindex $p 0] $msg" + puts "Loaded [lindex $p 0] $msg" } namespace import itcl::*