The description of Tk::JBrowseEntry - so despite it being a copy this here type of installation I went ahead and installed it sucessfully on my AS 5.8.0 (bld 806) system on WinXP. I use Eclipse IDE with the Perl add-in.
In this code snippet:
Which seems fine to me according to the docs I get the following error:my $dsquery = $cfr->JBrowseEntry( -label => 'Data Source', -width => '20', -height => '5', -variable => \$state->{dsSrcName}, -browsecmd => \&doGetDatasource, -state => 'normal' )->grid();
OK, so what is that saying? Well, here is the relevant portion from the source code for the module.Use of uninitialized value in addition (+) at K:/Perl/site/lib/Tk/JBro +wseEntry.pm line 854.
The author seems to be doing some calculation and fudging to do with Windows, but I am not confident enough to go delving into the module.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 MAK +E DROPDOWN LINE UP VERTICALLY W/ENTRY&BUTTON. }
Has anybody had any experience with this module? Apart from this annoying message it appears to be working okay. I can turn off the warnings once out of development, but I would really like to know why this is happening and fix it if possible.
As always your assistance is much appreciated.
In reply to Tk::JBrowseEntry gives me this error I dont understand by jdtoronto
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |