Re^2: How to set background Color on bitmap when creating with DefineBitmap?

[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.