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

avoid showing alert box if enabling / disabling stretch mode by bindkey

This commit is contained in:
stefan schippers 2023-12-05 17:32:48 +01:00
parent c090773afe
commit b8fecf997b
3 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/callback.c
View File

@ -1921,11 +1921,9 @@ int rstate; /* (reduced state, without ShiftMask) */
en_s = !en_s;
if(en_s) {
tcleval("alert_ { enabling stretch mode } {}");
tclsetvar("enable_stretch","1");
}
else {
tcleval("alert_ { disabling stretch mode } {}");
tclsetvar("enable_stretch","0");
}
break;

2
src/draw.c
View File

@ -422,7 +422,7 @@ void get_sym_text_size(int inst, int text_n, double *xscale, double *yscale)
int sym_n = xctx->inst[inst].ptr;
if(sym_n >= 0 && xctx->sym[sym_n].texts > text_n) {
if(strstr(xctx->inst[inst].prop_ptr, "text_size_")) {
if(xctx->inst[inst].prop_ptr && strstr(xctx->inst[inst].prop_ptr, "text_size_")) {
my_snprintf(attr, S(attr), "text_size_%d", text_n);
ts = get_tok_value(xctx->inst[inst].prop_ptr, attr, 0);
} else {

12
src/xschem.tcl
View File

@ -6730,6 +6730,8 @@ proc pack_widgets { { topwin {} } } {
pack $topwin.statusbar.5 -side left
pack $topwin.statusbar.6 -side left
pack $topwin.statusbar.7 -side left
pack $topwin.statusbar.10 -side left
pack $topwin.statusbar.9 -side left
pack $topwin.statusbar.8 -side left
pack $topwin.statusbar.1 -side left -fill x
pack $topwin.menubar -side top -fill x
@ -7480,13 +7482,15 @@ tclcommand=\"xschem raw_read \$netlist_dir/[file tail [file rootname [xschem get
label $topwin.statusbar.1 -text "STATUS BAR 1"
label $topwin.statusbar.2 -text "SNAP:"
entry $topwin.statusbar.3 -relief sunken -bg white \
-width 10 -foreground black -takefocus 0
-width 7 -foreground black -takefocus 0
label $topwin.statusbar.4 -text "GRID:"
entry $topwin.statusbar.5 -relief sunken -bg white \
-width 10 -foreground black -takefocus 0
label $topwin.statusbar.6 -text "NETLIST MODE:"
-width 7 -foreground black -takefocus 0
label $topwin.statusbar.6 -text "MODE:"
label $topwin.statusbar.7 -relief sunken -bg white \
-width 8
-width 7
label $topwin.statusbar.10 -text {Stretch:}
label $topwin.statusbar.9 -textvariable enable_stretch
label $topwin.statusbar.8 -activebackground red -text {}
}