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

proc clearEZEshow {} {

upvar #0 EZEshows shows

set ierr [catch {set n [array size shows]}]
if {$ierr == 0} {
	foreach elem [array names shows] {
		unset shows($elem)
	}
}
set shows(0) 1
}

