00001 /* @mdgen EXCLUDE: xifo.tcl*/ 00002 /* @mdgen EXCLUDE: mkpkgidx.tcl*/ 00003 /* */ 00004 /* Copyright (c) 2001 by Jean-Luc Fontaine <jfontain@free.fr>.*/ 00005 /* This code may be distributed under the same terms as Tcl.*/ 00006 /* */ 00007 /* $Id: pkgIndex.tcl,v 1.10 2007/03/23 17:31:51 andreas_kupries Exp $*/ 00008 00009 /* Since stooop redefines the proc command and the default package facility will*/ 00010 /* only load the stooop package at the first unknown command, proc being*/ 00011 /* obviously known by default, forcing the loading of stooop is mandatory prior*/ 00012 /* to the first proc declaration.*/ 00013 00014 if {![package vsatisfies [package provide Tcl] 8.3]} {return} 00015 package ifneeded stooop 4.4.1 [list source [file join $dir stooop.tcl]] 00016 00017 /* the following package index instruction was generated using:*/ 00018 /* "tclsh mkpkgidx.tcl switched switched.tcl"*/ 00019 /* (comment out the following line if you do not want to use the switched class*/ 00020 /* as a package)*/ 00021 00022 package ifneeded switched 2.2.1 [list source [file join $dir switched.tcl]] 00023
1.6.1