my $dsquery = $cfr->JBrowseEntry(
		-label => 'Data Source',
		-width => '20',
		-height => '5',
		-variable => \$state->{dsSrcName},
		-browsecmd => \&doGetDatasource,
		-state => 'normal'
		)->grid();

##</code><code>##

Use of uninitialized value in addition (+) at K:/Perl/site/lib/Tk/JBrowseEntry.pm line 854.

##</code><code>##

		if ($^O =~ /Win/i)
		{
			#$y1 -= 3;
#print "-bw=$w->{-borderwidth}= y1 was=$y1=\n";
			$y1 -= 3 - ($w->{-borderwidth} || 2);
#print "-bw=$w->{-borderwidth}= y1 now=$y1=\n";
			#$unitpixels = $e->height - ((2 * $bd) + 1) + 6;
			$unitpixels = $e->height + 1;
			#$ht = ($wheight * $unitpixels) + 10;
			$ht = ($wheight * $unitpixels) + (2 * $bd) + 4;
#print "-???- eheight=$e->height= BD=$bd= up=$unitpixels= wh=$wheight= HT=$ht=\n";
			#$ee = $w->Subwidget("textpart");
			$ee = $w->Subwidget("frame");
			$x1 = $ee->rootx;
			$x2 = $a->rootx + $a->width;
			$width = $x2 - $x1
854:                    $rw = $width + $w->{-borderwidth};
			$x1 += 1;  #FUDGE MORE FOR WINDOWS (THINNER BORDER) TO MAKE DROPDOWN LINE UP VERTICALLY W/ENTRY&BUTTON.
		}