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

let recorders get the frappy cfg names (lowercase)

Browse Source
This commit is contained in:
zolliker
2025-06-17 08:56:24 +02:00
parent e819507c3e
commit df499953d9
3 changed files with 57 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tcl/seacom.tcl
View File

@ -999,7 +999,9 @@ proc samenv args {
addon delete [result device stick_name]
}
device stick_name ""
device stick_label ""
device name none
device name_label NONE
device makeitem stickrot_hostport unconnected
stopall
@ -1161,6 +1163,7 @@ proc samenv args {
default load
device name $name
device name_label [string toupper $name]
if {$name ne [silent 0 hval /device/confirmed]} {
device makeitem confirmed ""
}
@ -1278,6 +1281,7 @@ proc addon args {
addon delete [result device stick_name]
}
device stick_name $name
device stick_label [string toupper $name]
default stick $name
set file ${name}.stick
set permanent_addon 0
@ -2428,10 +2432,10 @@ proc -addonGroup {} {
proc webSelectGroup {} {
# group name starting with '-': group is hidden until activated with button
set u_device [string toupper [result device name]]
set u_device [hval /device/name_label]
set u_stick ""
if {[result device stick_menu] ne ""} {
set u_stick [string toupper [result device stick_name]]
set u_stick [hval /device/stick_label]
}
clientput "-Tselect device"
Group webDevice "select device ($u_device)"
@ -2465,13 +2469,13 @@ proc mainGroup {{forweb ""}} {
Label [string toupper [result instrument]]
NoNewline
set u_device [string toupper [result device name]]
set u_device [hval /device/name_label]
set lab "Device: $u_device"
SelectButton -device $lab
NoNewline
set u_stick ""
if {[result device stick_menu] ne ""} {
set u_stick [string toupper [result device stick_name]]
set u_stick [hval /device/sitck_label]
SelectButton "-sticks" "Stick: $u_stick"
NoNewline
}