improve coding for MA11 (codeb=0 Ohm)

+ was_uplugged should be cleared in proc samenv
2024-10-17 10:53:04 +02:00
parent 75ede2b0b3
commit bdd25b4ec7
6 changed files with 17 additions and 10 deletions
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@@ -904,7 +904,7 @@ proc samenv args {
  global inside_samenv unconfigured_list vars logbase
  global objects_created objects_replaced objects_already device_name
  global selected_stick selected_addons
-  global change_device_to_none
+  global change_device_to_none was_unplugged

  set inside_samenv 0
  set verbose 1
@@ -965,6 +965,7 @@ proc samenv args {
  }

  set change_device_to_none 0
+  set was_unplugged 0

  set nl [split $name /]
  if {[llength $nl] == 1} {