sub hover_over_drop {
	my ($label_obj, $b_entry, $x_pos) = @_;
	$label_obj->configure(-bg => $b_entry == 1 ? 'gray' : 'lightgray');

    #use Data::Dumper;
	#print Dumper(@_);

	if ($b_entry) {
 	    #print $label_obj . "\n";
		print $label_obj->cget(-text) . "\n";
	}
}