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

better intermediate fix for missing name_label / stick_label

Browse Source
This commit is contained in:
zolliker
2025-06-18 08:09:05 +02:00
parent 2fdb2c5c9e
commit a172bbb6be
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tcl/seacom.tcl
View File

@ -2469,13 +2469,19 @@ proc mainGroup {{forweb ""}} {
Label [string toupper [result instrument]] Label [string toupper [result instrument]]
NoNewline NoNewline
set u_device [silent [hval /device/name] hval /device/name_label] # TODO: remove this intermediate fix on running sea server
if {[silent 0 hval /device/name_label] eq "0"} {
device makeitem name_label [string toupper [hval /device/name]]
device makeitem stick_label [string toupper [hval /device/stick_name]]
}
set u_device [hval /device/name_label]
set lab "Device: $u_device" set lab "Device: $u_device"
SelectButton -device $lab SelectButton -device $lab
NoNewline NoNewline
set u_stick "" set u_stick ""
if {[result device stick_menu] ne ""} { if {[result device stick_menu] ne ""} {
set u_stick [silent [hval /device/stick_name] hval /device/stick_label] set u_stick [hval /device/stick_label]
SelectButton "-sticks" "Stick: $u_stick" SelectButton "-sticks" "Stick: $u_stick"
NoNewline NoNewline
} }