diff --git a/src/xschem.tcl b/src/xschem.tcl index 00055738..c29c5d43 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -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 {} {