git.maemo.org Git - pkg-perl/blob - deb-src/libwx-perl/libwx-perl-0.96/XS/Colour.xs

   1 #############################################################################
   2 ## Name:        XS/Colour.xs
   3 ## Purpose:     XS for Wx::Colour
   4 ## Author:      Mattia Barbon
   5 ## Modified by:
   6 ## Created:     29/10/2000
   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 #############################################################################
  12
  13 MODULE=Wx PACKAGE=Wx::Colour
  14
  15 void
  16 wxColour::new( ... )
  17   PPCODE:
  18     BEGIN_OVERLOAD()
  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 )
  23
  24 #if WXPERL_W_VERSION_GE( 2, 7, 1 )
  25
  26 wxColour*
  27 newRGBA( CLASS, red, green, blue, alpha = wxALPHA_OPAQUE )
  28     SV* CLASS
  29     unsigned char red
  30     unsigned char green
  31     unsigned char blue
  32     unsigned char alpha
  33   CODE:
  34     RETVAL = new wxColour( red, green, blue, alpha );
  35   OUTPUT: RETVAL
  36
  37 #endif
  38
  39 wxColour*
  40 newRGB( CLASS, red, green, blue )
  41     SV* CLASS
  42     unsigned char red
  43     unsigned char green
  44     unsigned char blue
  45   CODE:
  46     RETVAL = new wxColour( red, green, blue );
  47   OUTPUT: RETVAL
  48
  49 wxColour*
  50 newName( CLASS, name )
  51     SV* CLASS
  52     wxString name
  53   CODE:
  54     RETVAL = new wxColour( name );
  55   OUTPUT: RETVAL
  56
  57 static void
  58 wxColour::CLONE()
  59   CODE:
  60     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
  61
  62 ## // thread OK
  63 void
  64 wxColour::DESTROY()
  65   CODE:
  66     wxPli_thread_sv_unregister( aTHX_ "Wx::Colour", THIS, ST(0) );
  67     delete THIS;
  68
  69 unsigned char
  70 wxColour::Blue()
  71
  72 unsigned char
  73 wxColour::Green()
  74
  75 bool
  76 wxColour::Ok()
  77
  78 #if WXPERL_W_VERSION_GE( 2, 8, 0 )
  79
  80 bool
  81 wxColour::IsOk()
  82
  83 #endif
  84
  85 unsigned char
  86 wxColour::Red()
  87
  88 #if WXPERL_W_VERSION_GE( 2, 7, 1 )
  89
  90 unsigned char
  91 wxColour::Alpha()
  92
  93 void
  94 wxColour::Set( red, green, blue, alpha )
  95     unsigned char red
  96     unsigned char green
  97     unsigned char blue
  98     unsigned char alpha
  99
 100 #else
 101
 102 void
 103 wxColour::Set( red, green, blue )
 104     unsigned char red
 105     unsigned char green
 106     unsigned char blue
 107
 108 #endif
 109
 110 #if WXPERL_W_VERSION_GE( 2, 7, 2 )
 111
 112 wxString
 113 wxColour::GetAsString( long flags )
 114
 115 #endif
 116
 117 #if !defined(__WXMAC__)
 118
 119 long
 120 wxColour::GetPixel()
 121
 122 #endif