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

Remove superfluous trailing white space from TCL files

Browse Source
This commit is contained in:
Douglas Clowes
2014-05-16 12:30:51 +10:00
parent 89e4e37f9e
commit 92d3acb5d5
230 changed files with 1835 additions and 1835 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/reflectometer/config/chopper/sct_chopper.tcl
View File

@@ -154,7 +154,7 @@ proc rdPwdAck {} {
return NXTCHOPPER
}
} message ]
handle_exception $catch_status $message
handle_exception $catch_status $message
}
# Create chopper control
@@ -175,7 +175,7 @@ proc rdPwdAck {} {
hfactory $chopperPath/device_error plain spy text
hset $chopperPath/device_error ""
# Must be set by user
hfactory $chopperPath/geometry plain spy none
hfactory $chopperPath/geometry/position plain spy none
@@ -186,7 +186,7 @@ proc rdPwdAck {} {
hfactory $chopperPath/geometry/position/ChopperPosZ plain user float
hsetprop $chopperPath/geometry/position/ChopperPosZ units "mm"
hfactory $chopperPath/geometry/position/ChopperCoordScheme plain user text
# Setup nodes for state report parameters
foreach ch {"ch1" "ch2" "ch3" "ch4"} {
hfactory $chopperPath/$ch plain spy none