From 0d9a3d35f8197086f6365ee9f778192b2191e2e1 Mon Sep 17 00:00:00 2001
From: Markus Zolliker <markus.zolliker@psi.ch>
Date: Tue, 17 Jun 2025 11:29:33 +0200
Subject: [PATCH] send ACTIVE only after all nodes are connected

used for sea_recorder
---
 tcl/drivers/secop_4.tcl | 13 ++++++++++++-
 tcl/seacom.tcl          |  2 +-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/tcl/drivers/secop_4.tcl b/tcl/drivers/secop_4.tcl
index f8ecd9d..53f97d8 100644
--- a/tcl/drivers/secop_4.tcl
+++ b/tcl/drivers/secop_4.tcl
@@ -726,8 +726,19 @@ proc secop::update_ {} {
     active {
       if {[lindex $sent_message 0] eq "activate"} {
         set message_to_client [sct result]
+      }
+      set act [silent 0 sct activate_stick]
+      if {$act} {
+        sct activate_stick 0
+        dolater 0 activate_stick
       } else {
-        clientput ACTIVE
+        set act [silent 0 sct activate_addon]
+        if {$act} {
+          sct activate_addon 0
+          dolater 0 activate_addon
+        } else {
+          clientlog ACTIVE
+        }
       }
       sct active 1
       sct end_fast 0
diff --git a/tcl/seacom.tcl b/tcl/seacom.tcl
index 9197b54..ea25132 100644
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@@ -2475,7 +2475,7 @@ proc mainGroup {{forweb ""}} {
   NoNewline
   set u_stick ""
   if {[result device stick_menu] ne ""} {
-    set u_stick [hval /device/sitck_label]
+    set u_stick [hval /device/stick_label]
     SelectButton "-sticks" "Stick: $u_stick"
     NoNewline
   }