If Itcl got built in -- support it

git-svn-id: svn://svn.equi4.com/kitgen/trunk@1983 9e558909-932a-0410-a563-af77432da1eb

diff --git a/setupvfs.tcl b/setupvfs.tcl
index 86073dc10542449204e523b62f1c1c1af659ca5f..cb99c7d903aebce38f69d288c45e364d6a1df851 100644 (file)
--- a/setupvfs.tcl
+++ b/setupvfs.tcl
@@ -305,6 +305,13 @@ foreach ext $exts {
     staticpkg $ext
 }
 
+if {[lsearch [info loaded] {{} Itcl}] != -1} {
+    catch {load {} Itcl}
+    lappend versmap itcl3@ itcl[package provide Itcl]
+    lappend clifiles lib/itcl3@/itcl.tcl
+    staticpkg Itcl [package provide Itcl]
+}
+
 switch [lindex $argv 1] {
   cli {
     vfscopy $clifiles