|
|
@ -431,10 +431,10 @@ namespace eval shellthread::manager { |
|
|
|
# then it's likely we will need to use the caller's auto_path and tcl::tm::list to find things |
|
|
|
# then it's likely we will need to use the caller's auto_path and tcl::tm::list to find things |
|
|
|
#The caller can tune the thread's package search by providing a settingsdict |
|
|
|
#The caller can tune the thread's package search by providing a settingsdict |
|
|
|
if {![dict exists $::settingsinfo tcl_tm_list]} { |
|
|
|
if {![dict exists $::settingsinfo tcl_tm_list]} { |
|
|
|
tcl::tm::add %mp% |
|
|
|
::tcl::tm::add %mp% |
|
|
|
} else { |
|
|
|
} else { |
|
|
|
tcl::tm::remove {*}[tcl::tm::list] |
|
|
|
tcl::tm::remove {*}[tcl::tm::list] |
|
|
|
tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list] |
|
|
|
::tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list] |
|
|
|
} |
|
|
|
} |
|
|
|
if {![dict exists $::settingsinfo auto_path]} { |
|
|
|
if {![dict exists $::settingsinfo auto_path]} { |
|
|
|
set ::auto_path [list %ap%] |
|
|
|
set ::auto_path [list %ap%] |
|
|
|