# $Header: /home/cvsroot/tcldb/wisql/Tlib/ezEhide,v 1.3 1998/02/16 04:40:57 de Exp $
# tcl procs saved on Tue Sep 05 09:32:44 PDT 1995

proc ezEhide {op arg} {

  global MsgW


upvar #0 EZEcols cols
upvar #0 EZEshows shows
upvar #0 EZEkeys keys

	case $op in {
	{ALL} {
		foreach col $cols {
			set shows($col) 1
		}
	}
	{NONE} {
		foreach col $cols {
			if {[lsearch $keys $col] < 0} {
			set shows($col) 0
			}
		}
	}
	{COMMIT} {
		setMsg $MsgW "Only selected columns will be displayed in EZedit."
		destroy $arg
	}
	}

}

