proc new_window remove file normalize as it messes up symlinks

This commit is contained in:
Stefan Frederik 2021-11-17 11:34:58 +01:00
parent ed87f28b23
commit 59fccdee14
2 changed files with 3 additions and 2 deletions

View File

@ -1361,9 +1361,10 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
cmd_found = 1;
tcleval("catch { ngspice::resetdata }");
tcleval("load_file_dialog {Load Schematic} .sch.sym INITIALLOADDIR");
my_snprintf(fullname, S(fullname),"%s", abs_sym_path(tclresult(), ""));
my_snprintf(fullname, S(fullname),"%s", abs_sym_path(rel_sym_path(tclresult()), ""));
if( fullname[0] ) {
Tcl_VarEval(interp, "new_window create ", fullname, NULL);
Tcl_VarEval(interp, "update_recent_file {", fullname, "}", NULL);
}
}

View File

@ -3470,7 +3470,7 @@ proc new_window {what {filename {}} {path {-}}} {
build_widgets $path
pack_widgets $path ;# also does set_bindings $path.drw
update
xschem new_schematic create $path $path.drw [file normalize $filename]
xschem new_schematic create $path $path.drw $filename
save_ctx $path.drw
return $path
} elseif { $what eq {destroy}} {