On 10/25/07, Ch Lamprecht <[EMAIL PROTECTED]> wrote:
> packing a Tk applicatin with pp, I found that although Tk::FBox is
> correctly detected and included, Tk::Bitmap is not.
>
> Tk::FBox depends on Tk::Bitmap, maybe this should be added to the
> Tk::FBox %preload entry (line 381 of Module::ScanDeps.pm)
Maybe... though I don't know why Module::ScanDeps doesn't pick up
Tk::Bitmap, the short example below (that's just the context of the single
reference to Tk::Bitmap in Tk::FBox.pm) _does_ pick up Tk::Bitmap,
but a minimal "use Tk; use Tk::FBox;" doesn't.
Cheers, Roderich
----
use Tk;
my $w;
if (!defined $updirImage->{$w->MainWindow}) {
$updirImage->{$w->MainWindow} = $w->Bitmap(-data => <<EOF);
#define updir_width 28
#define updir_height 16
static char updir_bits[] = {
0x00, 0x00, 0x00, 0x00, 0x80, 0x1f, 0x00, 0x00, 0x40, 0x20, 0x00, 0x00,
0x20, 0x40, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x01, 0x10, 0x00, 0x00, 0x01,
0x10, 0x02, 0x00, 0x01, 0x10, 0x07, 0x00, 0x01, 0x90, 0x0f, 0x00, 0x01,
0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01, 0x10, 0x02, 0x00, 0x01,
0x10, 0xfe, 0x07, 0x01, 0x10, 0x00, 0x00, 0x01, 0x10, 0x00, 0x00, 0x01,
0xf0, 0xff, 0xff, 0x01};
EOF
}
----
