00001 if {![package vsatisfies [package provide Tcl] 8.2]} { 00002 /* PRAGMA: returnok*/ 00003 return 00004 } 00005 package ifneeded des 1.1.0 [list source [file join $dir des.tcl]] 00006 package ifneeded tclDES 1.0.0 [list source [file join $dir tcldes.tcl]] 00007 package ifneeded tclDESjr 1.0.0 [list source [file join $dir tcldesjr.tcl]] 00008