# $Header: /home/cvsroot/tcldb/wisql/Tlib/ezRwidth,v 1.2 1997/08/25 03:14:45 de Exp $
# tcl procs saved on Tue Sep 05 09:32:52 PDT 1995

proc ezRwidth eb {

	upvar #0 EZRcolatts colatts
	upvar #0 EZRcols cols
	upvar #0 EZRcol col

	set msgw .[lindex [split $eb .] 1].messages

	set newwid [$eb get]

	if {$newwid == ""} {return}
	if {$newwid == 0} {return}

	set result [chkNum I $newwid]
        set err [lindex $result 0]
	if {$err} {
		echo "Width value $newwid is not an int"
#		NOT AN INT
		$eb delete 0 end
		return
	}


	if {$newwid > 200} {
		echo "Not a reasonable width for field $col"
		$eb delete 0 end
		return
	}

	keylset colatts($col) width $newwid
	
	$msgw configure -text "The printed width of column $col will be $newwid characters."

}

