From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Mon, 24 Dec 2007 00:22:29 +0000 (+0000)
Subject: If Itcl got built in -- support it
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b1af73cb7af93647b3b3522aa9e890a91dc92be7;p=kitgen

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 86073dc..cb99c7d 100644
--- 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