Version 0 of get_width

Updated 2004-01-11 18:36:43

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
 }