proc new_window remove file normalize as it messes up symlinks
This commit is contained in:
parent
ed87f28b23
commit
59fccdee14
|
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -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}} {
|
||||
|
|
|
|||
Loading…
Reference in New Issue