Select Code to Download

    my $dsquery = $cfr->JBrowseEntry(
        -label => 'Data Source',
...
        -browsecmd => \&doGetDatasource,
        -state => 'normal'
        )->grid();

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

        if ($^O =~ /Win/i)
        {
...
854:                    $rw = $width + $w->{-borderwidth};
            $x1 += 1;  #FUDGE MORE FOR WINDOWS (THINNER BORDER) TO MAK
+E DROPDOWN LINE UP VERTICALLY W/ENTRY&BUTTON.
        }