How to access a bitmap object after defining it with DefineBitmap?

Folks-

Given the attached program, how can I access the 'arrowDn' bitmap  
object that got created by DefineBitmap? I'd like to be able to  
manipulate both the -background value and the -data value.

This question is also online at: http://www.perlmonks.org/?node_id=849564

Thanks
-Craig

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();

MainLoop();
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk