# $Header: /home/cvsroot/tcldb/wisql/Tlib/clearEZRspec,v 1.2 1997/08/28 05:24:12 de Exp $
# tcl procs saved on Tue Sep 05 09:32:28 PDT 1995

proc clearEZRspec {} {



upvar #0 EZRop op
upvar #0 EZRcomp1 comp1
upvar #0 EZRcomp2 comp2
upvar #0 EZRrform rf

	set w $rf

	set op ""
	set comp1 ""
	set comp2 ""

	$w.data.spec.cmp1 delete 0 end
	$w.data.spec.and configure -text " "
	$w.data.spec.cmp2 delete 0 end
	$w.data.spec.cmp2 configure -border 0
		
}

