package IO::SWF::Tag::BGColor;
use strict;
use warnings;
use base 'IO::SWF::Tag::Base';
use IO::SWF::Bit;
use IO::SWF::Type::RGB;
__PACKAGE__->mk_accessors( qw(
_color
));
sub parseContent {
my ($self, $tagCode, $content, $opts_href) = @_;
my $reader = IO::SWF::Bit->new();
$reader->input($content);
$self->_color(IO::SWF::Type::RGB::parse($reader));
}
sub dumpContent {
my ($self, $tagCode, $opts_href) = @_;
my $color_str = IO::SWF::Type::RGB::string($self->_color);
print "\tColor: $color_str\n";
}
sub buildContent {
my ($self, $tagCode, $opts_href) = @_;
my $writer = IO::SWF::Bit->new();
IO::SWF::Type::RGB::build($writer, $self->_color);
return $writer->output();
}
1;