fix wave panning if a non graph added, better error reporting in png writer function, better flags option names for special objejcts (image and graphs)

This commit is contained in:
Stefan Frederik 2022-01-21 02:18:07 +01:00
parent e66abe36fa
commit 42703b020d
4 changed files with 8 additions and 4 deletions

View File

@ -180,7 +180,6 @@ void start_wire(double mx, double my)
* 32: move cursor2
* 64: show measurement tooltip
*/
static int waves_callback(int event, int mx, int my, KeySym key, int button, int aux, int state)
{
Graph_ctx *gr;

View File

@ -2774,7 +2774,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
{
double x1,y1,x2,y2;
int pos, save, sel = 0;
const char *prop;
const char *prop=NULL;
cmd_found = 1;
if(argc>=6) {
x1=atof(argv[2]);

View File

@ -68,6 +68,7 @@ proc netlisting_dir {dir} {
proc run_xschem_netlist {type output_dir fn fpath} {
global testname pathlist xschem_cmd num_fatals
set fn_debug [join [list $output_dir , [regsub {\.} $fn {_}] "_${type}_debug.txt"] ""]
regsub {./} $fn_debug {_} fn_debug
set sch_name [regsub {\.sch} $fn {}]
set fn_netlist [join [list $sch_name "." $type] ""]
set output [join [list $testname / results / $fn_debug] ""]

View File

@ -170,10 +170,14 @@ proc print_test {{view 0}} {
## test xschem's own simulation engine
## there is no built in testing, just see if it works.
proc test_xschem_simulation {{f simulate_ff.sch}} {
global tclstop
global tclstop OS
xschem load [abs_sym_path $f]
## search element with tclcommand attribute
xschem search regex 1 tclcommand {}
if {$OS ne {Windows}} {
xschem search regex 1 tclcommand {}
} else {
xschem search exact 1 name h3
}
## join transform a list element {foo} into a plain string foo
set instname [join [xschem selected_set]]
## run tcl testbench