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