From b1af73cb7af93647b3b3522aa9e890a91dc92be7 Mon Sep 17 00:00:00 2001
From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Mon, 24 Dec 2007 00:22:29 +0000
Subject: [PATCH] If Itcl got built in -- support it

git-svn-id: svn://svn.equi4.com/kitgen/trunk@1983 9e558909-932a-0410-a563-af77432da1eb
---
 setupvfs.tcl | 7 +++++++
 1 file changed, 7 insertions(+)

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
-- 
2.23.0