# $Header: /home/cvsroot/tcldb/wisql/Tlib/vertPage,v 1.2 1998/03/22 21:26:03 de Exp $
# tcl procs saved on Tue Sep 05 09:33:20 PDT 1995

proc vertPage {} {

#	Paint a page of the vertical form with data for current record


global base table 

upvar #0 EZEcci cci
upvar #0 EZEnrec nrec
upvar #0 EZEcols cols
upvar #0 EZEshows shows
upvar #0 EZEforf forf
upvar #0 EZEvform vf
upvar #0 EZEhform hf

#	first check to make sure that the vertical form exists.

	set err [catch {winfo children $vf}]

	if {!$err} {	

	set i 0
	foreach c $cols {

	if {$shows($c)} {

	set olddata "[$hf.data.pic.win.$c.d get $cci]"
	$vf.data.can.fr.old.$c configure -state normal
	$vf.data.can.fr.old.$c delete 0 end
	$vf.data.can.fr.old.$c insert 0 "$olddata"
	$vf.data.can.fr.old.$c configure -state disabled

	}
	incr i

	}
	$vf.msg configure -text "Vertical Form Data Editor: table $table record [expr {$cci + 1}] of $nrec selected record(s)" 

	}

}

