luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix a regression in legacy load_file_dialog (due to changes in set_paths)

This commit is contained in:
stefan schippers 2025-10-06 23:18:30 +02:00
parent 028516267b
commit ae1028501c
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/xschem.tcl
View File

@ -10368,10 +10368,8 @@ proc cleanup_paths {paths} {
return $path_l return $path_l
} }
# when XSCHEM_LIBRARY_PATH is changed call this function to refresh and cache
# new library search path.
proc set_paths {} { proc set_paths {} {
global XSCHEM_LIBRARY_PATH pathlist OS add_all_windows_drives file_chooser global XSCHEM_LIBRARY_PATH pathlist OS add_all_windows_drives
# puts stderr "caching search paths" # puts stderr "caching search paths"
if { [info exists XSCHEM_LIBRARY_PATH] } { if { [info exists XSCHEM_LIBRARY_PATH] } {
if {$OS == "Windows"} { if {$OS == "Windows"} {
@ -10386,15 +10384,16 @@ proc set_paths {} {
set path_l_orig [split $XSCHEM_LIBRARY_PATH :] set path_l_orig [split $XSCHEM_LIBRARY_PATH :]
} }
set pathlist_new [cleanup_paths $path_l_orig] set pathlist [cleanup_paths $path_l_orig]
} }
if {$pathlist_new eq {}} { set pathlist_new [pwd] } if {$pathlist eq {}} { set pathlist [pwd] }
set_ne pathlist {}
set_initial_dirs set_initial_dirs
c_toolbar::clear c_toolbar::clear
load_recent_file load_recent_file
set pathlist $pathlist_new if {[winfo exists .ins]} { .ins.top3.upd invoke }
} }
proc print_help_and_exit {} { proc print_help_and_exit {} {