proc popDlist {ct} {

	global Data 


	set sv [keylget Data($ct) sample]
	set dl [$sv length]
	set str [format "%-6.6s %-3.3s %-10.10s %d" Data$ct $sv RowCt $dl]
	.pCFG.f1.lb.vecl insert end "$str"

	set vl [keylget Data($ct) vectors]
	foreach v $vl {
		set cn [keylget Data($ct) $v]
		set dl [$v length]
		set str [format "%-6.5s %-3.3s %-10.10s %d" Data$ct $v $cn $dl]
		.pCFG.f1.lb.vecl insert end "$str"
	}
}
