#!/usr/bin/perl -Tw
use strict;
use Data::Dumper;

my %colors = (
	ActiveBorder => 'Active window border.',
	ActiveCaption => 'Active window caption.',
	AppWorkspace => 'Background color of multiple document interface.',
	Background => 'Desktop background.',
	ButtonFace => 'Face color for three-dimensional display elements.',
	ButtonHighlight => 'Highlight color for three-dimensional display elements (for edges facing away from the light source).',
	ButtonShadow => 'Shadow color for three-dimensional display elements.',
	ButtonText => 'Text on push buttons.',
	CaptionText => 'Text in caption, size box, and scrollbar arrow box.',
	GrayText => 'Grayed (disabled) text. This color is set to #000 if the current display driver does not support a solid gray color.',
	Highlight => 'Item(s) selected in a control.',
	HighlightText => 'Text of item(s) selected in a control.',
	InactiveBorder => 'Inactive window border.',
	InactiveCaption => 'Inactive window caption.',
	InactiveCaptionText => 'Color of text in an inactive caption.',
	InfoBackground => 'Background color for tooltip controls.',
	InfoText => 'Text color for tooltip controls.',
	Menu => 'Menu background.',
	MenuText => 'Text in menus.',
	Scrollbar => 'Scroll bar gray area.',
	ThreeDDarkShadow => 'Dark shadow for three-dimensional display elements.',
	ThreeDFace => 'Face color for three-dimensional display elements.',
	ThreeDHighlight => 'Highlight color for three-dimensional display elements.',
	ThreeDLightShadow => 'Light color for three-dimensional display elements (for edges facing the light source).',
	ThreeDShadow => 'Dark shadow for three-dimensional display elements.',
	Window => 'Window background.',
	WindowFrame => 'Window frame.',
	WindowText => 'Text in windows.',
);

print  '<table width="100%" border="1">', $/;

foreach (sort keys %colors) {
    my $text = "$_ <br /> $colors{$_}";
    print <<EOF;
<tr>
    <td style="background-color: $_; color: black; width: 25%"> bg: $text </td>
    <td style="background-color: $_; color: white; width: 25%"> bg: $text </td>
    <td style="background-color: black; color: $_; width: 25%"> fg: $text </td>
    <td style="background-color: white; color: $_; width: 25%"> fg: $text </td>
</tr>
EOF
}

print '</table>', $/;