# $Header: /home/cvsroot/tcldb/wisql/Tlib/ezEview,v 1.1.1.1 1996/10/12 02:26:27 de Exp $
# tcl procs saved on Tue Sep 05 09:32:47 PDT 1995

proc ezEview {win col op} {

	upvar #0 EZEviews views

	if {$op == "+"} {
		set amt 1
	} else {
		set amt -1
	}

	incr views($col) $amt

	if {$views($col) < 0} {
		set views($col) 0
	}

	$win.data.pic.win.$col.d xview $views($col)

}

