00001 if {![package vsatisfies [package provide Tcl] 8.3]} return 00002 package ifneeded interp 0.1.1 [list source [file join $dir interp.tcl]] 00003 package ifneeded interp::delegate::ret 0.2 [list source [file join $dir deleg_proc.tcl]] 00004 package ifneeded interp::delegate::method 0.2 [list source [file join $dir deleg_method.tcl]] 00005