Remove superfluous trailing white space from TCL files

site_ansto/instrument/util/eventutil.tcl

@@ -38,7 +38,7 @@ proc ::event::waitfor {sobj args} {
     eval $args
     while {$sobjBusy == 1} {
       wait 1
-    } 
+    }
     scriptcallback remove $sobj $CBID
     SetStatus $oldStatus
   } message ] {
@@ -53,12 +53,12 @@ namespace import ::event::waitfor
 
 publish waitfor user
 
-namespace eval ::batch::call_cleanup { } 
+namespace eval ::batch::call_cleanup { }
 proc ::batch::cleanup {} {}
 ##
 # @brief Calls a user defined cleanup script when a batch file ends or is aborted
 # The cleanup script must be called ::batch::call_cleanup
-proc ::batch::call_cleanup {} { 
+proc ::batch::call_cleanup {} {
   ::batch::cleanup
   proc ::batch::cleanup {} {}
 }