1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#############################################################################
## Name: XS/ColourDatabase.xs
## Purpose: XS for Wx::ColourDatabase
## Author: Mark Dootson
## Modified by:
## Created: 14/09/2007
## RCS-ID: $Id: ColourDatabase.xs 2282 2007-11-11 13:48:28Z mbarbon $
## Copyright: (c) 2007 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
MODULE=Wx PACKAGE=Wx::ColourDatabase
void
AddColour( colourname, colour )
wxString colourname
wxColour* colour
CODE:
wxTheColourDatabase->AddColour( colourname, *colour );
wxColour*
Find( colourname )
wxString colourname
CODE:
RETVAL = new wxColour( wxTheColourDatabase->Find( colourname ) );
OUTPUT: RETVAL
wxString
FindName( colour )
wxColour* colour
CODE:
RETVAL = wxTheColourDatabase->FindName( *colour );
OUTPUT: RETVAL
|
