How to set background Color on bitmap when creating with DefineBitmap?

[cmv]

Monks-

This should be simple, but I can't seem to get it...

I want to create a bitmap with a particular background color. Here's how I create the bitmap:

my $arrowDnBits = pack("b8" x 5,
        "........",
        ".111111.",
        "..1111..",
        "...11...",
        "........");
$top->DefineBitmap('arrowDn' => 8, 5, $arrowDnBits);

Where do I specify -background=>'red' in the above code?

DefineBitmap doesn't return anything, so I can't access it that way and it doesn't allow any options on the command line either.

How do I do this?

Thanks

-Craig

Update:

Found some additional (hopefully helpful) information from the activestate manuals as follows:

When a bitmap image is created, Tk also creates a new command whose name is the same as the image. This command may be used to invoke various operations on the image. It has the following general form:

imageName option ?arg arg ...?

Option and the args determine the exact behavior of the command. The following commands are possible for bitmap images:

imageName cget option

Returns the current value of the configuration option given by option. Option may have any of the values accepted by the image create bitmap command.

Unfortunately, none of these seem to work:

$top->configure(-bitmap=>'arrowDn', -background=>'red');
$top->image(-bitmap=>'arrowDn', -background=>'red');
$top->arrowDn(-background=>'red');

[Anonymous Monk]

This should be simple, but I can't seem to get it...

Start by posting a complete program

How (Not) To Ask A Question

[cmv]

Here's a quick example:

use strict;
use warnings;

use Tk;

my $top = MainWindow->new();

my $arrowDnBits = pack("b8" x 5,
    "........",
    ".111111.",
    "..1111..",
    "...11...",
    "........"
);

$top->DefineBitmap('arrowDn' => 8, 5, $arrowDnBits);

$top->Button(-bitmap=>'arrowDn')->pack(-side=>'left');

MainLoop();

Note: It is possible to set -background=>'red' when you create the button (which will get the button code to go and set the bitmap background for you), but that is not what I want. I'm trying to figure out how to set the bitmap -background directly, or possibly another bitmap option like -data.