set min_lw in xinit.c based on xschemrc line_width var
This commit is contained in:
parent
c3cb1218a1
commit
d4fc6c96c1
|
|
@ -2712,7 +2712,6 @@ int Tcl_AppInit(Tcl_Interp *inter)
|
||||||
tclsetboolvar("color_ps", color_ps);
|
tclsetboolvar("color_ps", color_ps);
|
||||||
}
|
}
|
||||||
l_width=tclgetdoublevar("line_width");
|
l_width=tclgetdoublevar("line_width");
|
||||||
if(tclgetboolvar("change_lw")) l_width = -1.0;
|
|
||||||
cadlayers=tclgetintvar("cadlayers");
|
cadlayers=tclgetintvar("cadlayers");
|
||||||
fix_broken_tiled_fill = tclgetboolvar("fix_broken_tiled_fill");
|
fix_broken_tiled_fill = tclgetboolvar("fix_broken_tiled_fill");
|
||||||
fix_mouse_coord = tclgetboolvar("fix_mouse_coord");
|
fix_mouse_coord = tclgetboolvar("fix_mouse_coord");
|
||||||
|
|
@ -2861,7 +2860,8 @@ int Tcl_AppInit(Tcl_Interp *inter)
|
||||||
/* load font from tcl 20171112 */
|
/* load font from tcl 20171112 */
|
||||||
tclsetvar("has_cairo","1");
|
tclsetvar("has_cairo","1");
|
||||||
#endif
|
#endif
|
||||||
|
xctx->min_lw = (int)l_width;
|
||||||
|
if(tclgetboolvar("change_lw")) l_width = -1.0;
|
||||||
change_linewidth(l_width);
|
change_linewidth(l_width);
|
||||||
dbg(1, "Tcl_AppInit(): done xinit()\n");
|
dbg(1, "Tcl_AppInit(): done xinit()\n");
|
||||||
/* Set backing store window attribute */
|
/* Set backing store window attribute */
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue