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

removed unneeded tcl global "simulate_bg"

This commit is contained in:
Stefan Frederik 2021-11-23 17:16:21 +01:00
parent 78934d363f
commit 9f33230f44
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xschem.tcl
View File

@ -3582,7 +3582,6 @@ proc no_open_dialogs {} {
## "textwindow_wcounter" should be kept global as it is the number of open textwindows ## "textwindow_wcounter" should be kept global as it is the number of open textwindows
## "viewdata_wcounter" should be kept global as it is the number of open viewdatas ## "viewdata_wcounter" should be kept global as it is the number of open viewdatas
## "execute_id", global is incremented on spawned subprocesses. ## "execute_id", global is incremented on spawned subprocesses.
## "simulate_bg": read only variable, no need to switch.
set tctx::global_list { set tctx::global_list {
auto_hilight autotrim_wires bespice_listen_port big_grid_points bus_replacement_char auto_hilight autotrim_wires bespice_listen_port big_grid_points bus_replacement_char
@ -3673,7 +3672,6 @@ proc housekeeping_ctx {} {
} }
proc simulate_button {button_path} { proc simulate_button {button_path} {
global simulate_bg
if { [set simulate_bg [$button_path cget -bg]] ne {red} } { if { [set simulate_bg [$button_path cget -bg]] ne {red} } {
$button_path configure -bg red $button_path configure -bg red
simulate "$button_path configure -bg $simulate_bg" simulate "$button_path configure -bg $simulate_bg"
@ -3769,7 +3767,7 @@ proc build_widgets { {topwin {} } } {
global draw_grid big_grid_points sym_txt change_lw incr_hilight symbol_width global draw_grid big_grid_points sym_txt change_lw incr_hilight symbol_width
global cadgrid draw_window show_pin_net_names toolbar_visible hide_symbols global cadgrid draw_window show_pin_net_names toolbar_visible hide_symbols
global disable_unique_names persistent_command autotrim_wires en_hilight_conn_inst global disable_unique_names persistent_command autotrim_wires en_hilight_conn_inst
global local_netlist_dir editor netlist_type netlist_dir spiceprefix initial_geometry simulate_bg global local_netlist_dir editor netlist_type netlist_dir spiceprefix initial_geometry
set mbg {} set mbg {}
set bbg {-highlightthickness 0} set bbg {-highlightthickness 0}
if { $topwin ne {}} { if { $topwin ne {}} {