Subject: | Tk::BrowseEntry doesn't load arrowdownwin.xbm like cbxarrow.xbm |
Using ActivePerl 5.8.4 on XP, the sample script fails to run using:
"pp -o script.exe script.pl"
It can be fixed by:
"pp -a c:/perl/site/lib/Tk/arrowdownwin.xbm;lib/Tk/arrowdownwin.xbm -o script.exe script.pl"
It adds 1MB to the executable (which is alread +2MB) but will eliminate this problem until it is resolved:
"pp -a c:/perl/site/lib/Tk;lib/Tk -o script.exe script.pl"
#----- Start script.pl -----
#!/usr/bin/perl
use Encode::Unicode;
use Tk;
use Tk::BrowseEntry;
my $valpbe;
my $mw = MainWindow->new;
my $be= $mw->BrowseEntry(-variable => \$valbe);
$be->pack(-side => 'left', -anchor => 'w', -fill => 'x', -expand => 1);
MainLoop;
#----- End Script -------