1 2 3 4 5 6 7 8 9 10
proc LoadPddp { version dir } { namespace eval ::pddp {} set ::pddp::theVersion $version set ::pddp::theDir $dir source [file join $dir pddpboot.tcl] } set version "0.1.0.2" package ifneeded pddp $version [list LoadPddp $version $dir]