show SECoP/cfg for recorders

+ auto select stick when stick_menu inf <name>.config starts with <name>
2025-06-23 12:59:10 +02:00
parent 6a191e49da
commit 35abc1c182
4 changed files with 18 additions and 6 deletions
--- a/tcl/seacom.tcl
+++ b/tcl/seacom.tcl
@ -1101,8 +1101,15 @@ proc samenv args {
      if {[silent "" result device stick_menu] eq ""} {
        device stick_menu $name
      }
-    } elseif {[silent "" result device stick_menu] ne ""} {
-      set selected_stick "none"
+    } else {
+      lassign [silent "" result device stick_menu] first
+      if {$first eq $name} {
+        if {[file exists $name.stick]} {
+          set selected_stick $name
+        }
+      } elseif {$first ne ""} {
+        set selected_stick none
+      }
    }
  }
 #  if {$selected_stick ne ""} {