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

intermediate fix for missing name_label / stick_label

Browse Source
This commit is contained in:
zolliker
2025-06-18 08:03:21 +02:00
parent 274ee37922
commit 2fdb2c5c9e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tcl/seacom.tcl
View File

@ -2432,7 +2432,7 @@ proc -addonGroup {} {
proc webSelectGroup {} { proc webSelectGroup {} {
# group name starting with '-': group is hidden until activated with button # group name starting with '-': group is hidden until activated with button
set u_device [hval /device/name_label] set u_device [silent [hval /device/name] hval /device/name_label]
set u_stick "" set u_stick ""
if {[result device stick_menu] ne ""} { if {[result device stick_menu] ne ""} {
set u_stick [hval /device/stick_label] set u_stick [hval /device/stick_label]
@ -2469,13 +2469,13 @@ proc mainGroup {{forweb ""}} {
Label [string toupper [result instrument]] Label [string toupper [result instrument]]
NoNewline NoNewline
set u_device [hval /device/name_label] set u_device [silent [hval /device/name] 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 [hval /device/stick_label] set u_stick [silent [hval /device/stick_name] hval /device/stick_label]
SelectButton "-sticks" "Stick: $u_stick" SelectButton "-sticks" "Stick: $u_stick"
NoNewline NoNewline
} }