i for got to say this too, you can also specify the exact color you want with something like:

my ( $customsolor1, $customcolor2 ) = (
                                       Wx::Colour->newRGB(255, 255, 25
+5);
                                       Wx::Colour->newRBG(0, 100, 0)
                                       );
[download]

and like i said, i dont know if this is the proper way to do it, but it does work :p