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

Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

Browse Source
This commit is contained in:
zolliker
2023-11-02 14:25:22 +01:00
parent f463ccf94a e5063b5693
commit 8a53c37bde
3 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tcl/startup/haake.tcl
View File

@ -8,7 +8,7 @@ proc makeHaake {{name thermostat} {with2sensors 0}} {
proc haakeLayout {{name ""} args} {
if {[string compare [sicsdescriptor th] notfound] == 0} return
set reset 1
if {! [result th running]} {
if {! [result th pumprunning]} {
Style Warning
Label pump not running
NoNewline
@ -61,7 +61,7 @@ proc haakeLayout {{name ""} args} {
set reset 0
}
Newline
CheckBox "pump running" "th running"
CheckBox "pump running" "th pumprunning"
CheckBox "confirm alarm" "th reset/$reset"
Tip "check this if an external sample sensor is used"
if {[result th with2sensors] >= 0} {