1 #############################################################################
3 ## Purpose: XS for Wx::Colour
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: Colour.xs 2285 2007-11-11 21:31:54Z mbarbon $
8 ## Copyright: (c) 2000-2002, 2004, 2006-2007 Mattia Barbon
9 ## Licence: This program is free software; you can redistribute it and/or
10 ## modify it under the same terms as Perl itself
11 #############################################################################
13 MODULE=Wx PACKAGE=Wx::Colour
19 MATCH_REDISP( wxPliOvl_n_n_n_n, newRGBA )
20 MATCH_REDISP( wxPliOvl_n_n_n, newRGB )
21 MATCH_REDISP( wxPliOvl_s, newName )
22 END_OVERLOAD( Wx::Colour::new )
24 #if WXPERL_W_VERSION_GE( 2, 7, 1 )
27 newRGBA( CLASS, red, green, blue, alpha = wxALPHA_OPAQUE )
34 RETVAL = new wxColour( red, green, blue, alpha );
40 newRGB( CLASS, red, green, blue )
46 RETVAL = new wxColour( red, green, blue );
50 newName( CLASS, name )
54 RETVAL = new wxColour( name );
60 wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
66 wxPli_thread_sv_unregister( aTHX_ "Wx::Colour", THIS, ST(0) );
78 #if WXPERL_W_VERSION_GE( 2, 8, 0 )
88 #if WXPERL_W_VERSION_GE( 2, 7, 1 )
94 wxColour::Set( red, green, blue, alpha )
103 wxColour::Set( red, green, blue )
110 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
113 wxColour::GetAsString( long flags )
117 #if !defined(__WXMAC__)