proc ::TreeCtrlLoad {dir} { uplevel #0 source [list [file join $dir treectrl.tcl]] uplevel #0 source [list [file join $dir filelist-bindings.tcl]] tclPkgSetup $dir treectrl @VERSION@ { {@treectrl_LIB_FILE@ load {treectrl imagetint textlayout}} } } package ifneeded treectrl @VERSION@ [list ::TreeCtrlLoad $dir]