linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

send ACTIVE only after all nodes are connected

Browse Source 
used for sea_recorder
This commit is contained in:
zolliker
2025-06-17 11:29:33 +02:00
parent df499953d9
commit 0d9a3d35f8
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tcl/drivers/secop_4.tcl
View File

@ -726,8 +726,19 @@ proc secop::update_ {} {
active { active {
if {[lindex $sent_message 0] eq "activate"} { if {[lindex $sent_message 0] eq "activate"} {
set message_to_client [sct result] set message_to_client [sct result]
}
set act [silent 0 sct activate_stick]
if {$act} {
sct activate_stick 0
dolater 0 activate_stick
} else { } 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 active 1
sct end_fast 0 sct end_fast 0

2
tcl/seacom.tcl
View File

@ -2475,7 +2475,7 @@ proc mainGroup {{forweb ""}} {
NoNewline NoNewline
set u_stick "" set u_stick ""
if {[result device stick_menu] ne ""} { 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" SelectButton "-sticks" "Stick: $u_stick"
NoNewline NoNewline
} }