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

proc prtAll w {

	upvar #0 EZRcols cols
	upvar #0 EZRprints prints

#	just select all the columns there are
	foreach col $cols {
#		Skip it if already selected
		if {$prints($col) == 0} {
		setPrint $w $col 
		}
	}
	
}

