Matt Ross <> wrote:
: I got tired of looking up the color codes so I set them up as
: variable, not pretty put functional
A hash might be better. It could be passed to subroutines as a
reference and it could very easily be made into an object.
my %xl_colors = {
Auto => 0, LightBlue => 20,
Black => 1, Purple => 21,
White => 2, DarkCoral => 22,
Red => 3, MotorolaBlue => 23,
DarkGreen => 4, ChalkBlue => 24,
Blue => 5, RoyalBlue => 25,
Yellow => 6, Color_001 => 32,
Pink => 7, Color_002 => 34,
Turquiose => 8, Color_003 => 37,
DarkRed => 9, Lavender => 38,
ForestGreen => 10, Color_005 => 39,
DarkYellow => 11, Color_006 => 40,
DarkBlue => 12, SkyBlue => 33,
Violet => 13, BrightPink => 35,
Teal => 14, LightYellow => 36,
Grey_25 => 15, Lime => 43,
Grey_50 => 16, Gold => 44,
PaleBlue => 17, LightOrange => 45,
Plum => 18, Rose => 46,
PaleYellow => 19, Green => 50,
xlSolid => 1, xlUp => 8,
xlGray75 => 2, xlCross => 9,
xlGray50 => 3, xlGray12 => 10,
xlGray25 => 4, xlLightHorizontal => 11,
xlHorizontal => 5, xlLightVertical => 12,
xlVertical => 6, xlLightUp => 13,
xlDown => 7, xlLightDown => 14,
}
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
