The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Graphics::ColorNames::Windows;

=head1 NAME

Graphics::ColorNames::Windows - Windows color names and equivalent RGB values

=head1 SYNOPSIS

  require Graphics::ColorNames::Windows;

  $NameTable = Graphics::ColorNames::Windows->NamesRgbTable();
  $RgbBlack  = $NameTable->{black};

=head1 DESCRIPTION

This module defines color names and their associated RGB values used in 
Microsoft Windows.

=head1 SEE ALSO

C<Graphics::ColorNames>

=head1 AUTHOR

Robert Rothenberg <rrwo at cpan.org>

=head1 LICENSE

Copyright (c) 2001-2008 Robert Rothenberg. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.


=cut

use strict;
use warnings;

our $VERSION = '2.11';
#$VERSION = eval $VERSION;

sub NamesRgbTable() {
  use integer;
  return {
    'black'	         => 0x000000,
    'blue'	         => 0x0000ff,
    'cyan'	         => 0x00ffff, 
    'green'	         => 0x00ff00,
    'magenta'	         => 0xff00ff,
    'red'	         => 0xff0000,
    'yellow'	         => 0xffff00,
    'white'	         => 0xffffff,
    'darkblue'	         => 0x000080,
    'darkcyan'	         => 0x008080,
    'darkgreen'	         => 0x008000,
    'darkmagenta'        => 0x800080,
    'darkred'	         => 0x800000,
    'darkyellow'         => 0x808000,
    'darkgray'	         => 0x808080,
    'lightgray'	         => 0xc0c0c0,
  };
}

1;

__END__