set_paths: correctly swap recent component list when changing search paths
This commit is contained in:
parent
ad31f65a61
commit
4155387e0d
|
|
@ -9792,6 +9792,19 @@ proc set_paths {} {
|
|||
}
|
||||
if {$pathlist eq {}} { set pathlist [pwd] }
|
||||
set_initial_dirs
|
||||
|
||||
## restore new recent component list...
|
||||
### ... first delete...
|
||||
if {[info exists c_toolbar::c_t(n)]} {
|
||||
for {set i 0} {$i < $c_toolbar::c_t(n)} {incr i} {
|
||||
set c_toolbar::c_t($i,text) {}
|
||||
set c_toolbar::c_t($i,command) {}
|
||||
set c_toolbar::c_t($i,file) {}
|
||||
}
|
||||
}
|
||||
# ... then reload.
|
||||
set c_toolbar::c_t(hash) [xschem hash_string $::XSCHEM_LIBRARY_PATH]
|
||||
load_recent_file
|
||||
}
|
||||
|
||||
proc print_help_and_exit {} {
|
||||
|
|
|
|||
Loading…
Reference in New Issue