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

   1 #############################################################################
   2 ## Name:        XS/ColourDatabase.xs
   3 ## Purpose:     XS for Wx::ColourDatabase
   4 ## Author:      Mark Dootson
   5 ## Modified by:
   6 ## Created:     14/09/2007
   7 ## RCS-ID:      $Id: ColourDatabase.xs 2282 2007-11-11 13:48:28Z mbarbon $
   8 ## Copyright:   (c) 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::ColourDatabase
  14
  15 void
  16 AddColour( colourname, colour )
  17     wxString colourname
  18     wxColour* colour
  19   CODE:
  20     wxTheColourDatabase->AddColour( colourname, *colour );
  21
  22 wxColour*
  23 Find( colourname )
  24     wxString colourname
  25   CODE:
  26     RETVAL = new wxColour( wxTheColourDatabase->Find( colourname ) );
  27   OUTPUT: RETVAL
  28
  29 wxString
  30 FindName( colour )
  31     wxColour* colour
  32   CODE:
  33     RETVAL = wxTheColourDatabase->FindName( *colour );
  34   OUTPUT: RETVAL
  35
  36