Remove superfluous trailing white space from TCL files

site_ansto/instrument/sans/config/commands/commands.tcl

@@ -22,20 +22,20 @@ namespace eval motor {
 # (Xbbs, Zbbs) = beam pos in beamstop coords
 # (Xdf,Zdf) = detector pos in frame coords
 # (Xbsf,Zbsf) = beamstop pos in frame coords
-# 
+#
 # (Xbf,Zbf) = (Xdf+Xbd, Zdf+Zbd) = (Xbsf+Xbbs, Zbsf+Zbbs)
 # Origin of detector coords = frame origin
-# 
+#
 # Detector and beamstop motor readings with beamstop disk centers
 # overlapping over detector center mark.
 # Xdf = 264.542  (7283813) Zdf = 0
 # Xbbs = 296.291 (8054270)
 # Zbbs = 259.641 (13488244)
 # Xbd = dethw, Zbd = (dethh)
-# 
+#
 # 264.542+dethw = Xbsf+296.291
 # 0+dethh = Zbsf+259.641
-# 
+#
 # Xbsf = -31.749 + dethw, Zbsf = -259.641 + dethh
 proc selbs {bs {bx "UNDEF"} {bz "UNDEF"}} {
   set bsdriving false
@@ -153,7 +153,7 @@ namespace eval optics {
 	VarMake ::optics::select::section text user
 	VarMake ::optics::polarizer::in   text user
 	VarMake ::optics::lens::selection text user
-	
+
   command rotary_attenuator {int=0,15,45,90,180 angle} {
     drive att $angle
   }
@@ -180,7 +180,7 @@ namespace eval optics {
 # @param row, selects a row from the guide configuration table
 #
 # eg\n
-# guide ga 
+# guide ga
   command guide "
   text=[join [array names ::optics::guide_configuration] , ] configuration
   " {
@@ -193,7 +193,7 @@ namespace eval optics {
       foreach {compselection position} $guide_configuration($configuration) {
         foreach el $compselection guide $guide_configuration_columns {
           lappend to_config $guide
-          lappend to_config [set ::optics::${guide}_map($el)] 
+          lappend to_config [set ::optics::${guide}_map($el)]
         }
         ::optics::guide -set feedback status BUSY
         set msg [eval "drive $to_config"]