get_width.tcl - returns the width of the xterm window at the present time
proc get_width {} { global ans global spid set cols [stty columns] return $cols }