my ( $customsolor1, $customcolor2 ) = (
                                       Wx::Colour->newRGB(255, 255, 255);
                                       Wx::Colour->newRBG(0, 100, 0)
                                       );