"xschem change_colors" to "xschem build_colors" in tcl command language for consistency
This commit is contained in:
parent
1963669c3f
commit
d3ef2038ed
|
|
@ -444,12 +444,6 @@ void mem_push_undo(void)
|
|||
xctx->tail_undo_ptr = xctx->head_undo_ptr <= MAX_UNDO? 0: xctx->head_undo_ptr-MAX_UNDO;
|
||||
}
|
||||
|
||||
/* BUG: in_memory_undo does not save/restore embedded symbols, it just saves references to symbols
|
||||
* if symbols are not found in library you get a schematic with missing symbols if you remove
|
||||
* symbols and do an undo (this is done in netlist operations to purge unused syms
|
||||
* if symbols are found in library your schematic will be linked with library symbols and this
|
||||
* is not the intended behavior */
|
||||
|
||||
/* redo:
|
||||
* 0: undo (with push current state for allowing following redo)
|
||||
* 1: redo
|
||||
|
|
|
|||
|
|
@ -163,7 +163,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
|
|||
Tcl_ResetResult(interp);
|
||||
}
|
||||
|
||||
else if(!strcmp(argv[1],"change_colors"))
|
||||
else if(!strcmp(argv[1],"build_colors"))
|
||||
{
|
||||
cmd_found = 1;
|
||||
build_colors(tclgetdoublevar("dim_value"), tclgetdoublevar("dim_bg"));
|
||||
|
|
|
|||
|
|
@ -2438,7 +2438,7 @@ proc change_color {} {
|
|||
regsub -all {"} $colors {} svg_colors
|
||||
regsub -all {#} $svg_colors {0x} svg_colors
|
||||
|
||||
xschem change_colors
|
||||
xschem build_colors
|
||||
xschem redraw
|
||||
set savedata "#### THIS FILE IS AUTOMATICALLY GENERATED BY XSCHEM, DO NOT EDIT.\n"
|
||||
append savedata "set cadlayers $cadlayers\n"
|
||||
|
|
@ -4079,12 +4079,12 @@ proc build_widgets { {topwin {} } } {
|
|||
$topwin.menubar.view.menu add checkbutton -label "Increment Hilight Color" -variable incr_hilight
|
||||
$topwin.menubar.view.menu add command -label "Toggle colorscheme" -accelerator {Shift+O} -command {
|
||||
xschem toggle_colorscheme
|
||||
xschem change_colors 1
|
||||
xschem build_colors 1
|
||||
xschem redraw
|
||||
}
|
||||
toolbar_create ViewToggleColors {
|
||||
xschem toggle_colorscheme
|
||||
xschem change_colors 1
|
||||
xschem build_colors 1
|
||||
xschem redraw
|
||||
} "Toggle Color Scheme" $topwin
|
||||
$topwin.menubar.view.menu add command -label "Dim colors" -accelerator {} -command {
|
||||
|
|
|
|||
Loading…
Reference in New Issue