Remove superfluous trailing white space from TCL files

site_ansto/instrument/util/dmc2280/motorinfo.tcl

@@ -42,8 +42,8 @@ proc Motor {name type par} {
 # Returns the test result status colour for the gui
 proc color {status} {
   switch $status {
-    TEST_PASSED {return green} 
-    TEST_FAILED {return red} 
+    TEST_PASSED {return green}
+    TEST_FAILED {return red}
     default {return lightgrey}
   }
 }
@@ -51,12 +51,12 @@ proc color {status} {
 # You can easily test the home position of individual motors
 # with this gui
 # Click on the button to run the checkHome command, the position
-# (in encoder counts or motor steps) will be displayed with 
+# (in encoder counts or motor steps) will be displayed with
 # green if the configured home matches the reported position,
 # red otherwise.
 proc testgui {} {
   package require Tk
-  global motors 
+  global motors
   toplevel .w
   frame .w.top
 
@@ -64,7 +64,7 @@ proc testgui {} {
     global ${m}_status
     set info($m) [frame .w.top.f$m]
 
-    set testResult $info($m).e$m 
+    set testResult $info($m).e$m
     button $info($m).$m -text $m -command "$testResult configure -background \[color \[checkHome $m\]\]"
     entry $testResult -textvariable ${m}_status(position)
     pack $info($m).$m -side left

site_ansto/instrument/util/dmc2280/troubleShoot.tcl

@@ -24,7 +24,7 @@ proc loadConfig {fName} {
   if [info exists ContList] {unset ContList}
 # Temporarily define unknown proc to skip undefined procs
   rename ::unknown _unknown
-  proc ::unknown {args} {} 
+  proc ::unknown {args} {}
   if [catch {uplevel #0 source $fName} errMsg] {
     rename ::unknown ""
     rename _unknown ::unknown