im_reduce_spaces string
Replaces all consecutive spaces with one
Source code:
regsub -all {[ ]+} $string " " string return $string