proc pickVector {role frame flag} {

	global Data DataCount VecCt
	global X Y UserLabels

	set selected ""
	catch {set selected [selection get]}
	lassign $selected dset vn name len

	set dc [crange $dset 4 end]

	if {$role == "X"} {
		set vnm $frame.xn
		set vid $frame.xv
		set UserLabels(X) ""
		set X $vn
	} else {
		set yi [cindex $role end]
		set vnm $frame.yn$yi
		set vid $frame.yv$yi
		set UserLabels(Y$yi) ""
		if {$flag == 0} {
		catch {unset Y($yi)}
		set name ""
		set vn ""
		} else {
		set Y($yi) $vn
		}
	}

	$vnm configure -text $name
	$vid configure -text $vn

}
