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:
parent
e66abe36fa
commit
42703b020d
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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]);
|
||||
|
|
|
|||
|
|
@ -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] ""]
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue