send ACTIVE only after all nodes are connected

used for sea_recorder

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

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
   }