proc infoData {} {

	global Data DataCount

	set sel ""
	catch {set sel [selection get]}

#	puts stderr "selected vector is $sel"	

	set text ""
	set cn ""
	set vn ""
	if {$sel != ""} {
		lassign $sel dn vn cn vl
		set dss [crange $dn 4 end]
	} else {
		set dss [lsort -integer [array names Data]] 
	}
	foreach ds $dss {
		set sql [keylget Data($ds) sql]
		set tim [keylget Data($ds) time]
		set text "Data Set $ds\nCreated  [clock format $tim]\nSQL      $sql\n\n"
		set vs [keylget Data($ds) vectors]
		foreach v $vs {
			set vc [keylget Data($ds) $v]
			set vl [$v length]
			set mark ""
			if {$vc == $cn} {
			set mark ***
			}
			append text "[format "%s\tVector %-3.3s : column %-15.15s with %d points\n"  $mark $v  $vc $vl]"
		}
	}

	mkEdit "Current Data" "$text" "Done" help {}

}
