1 #############################################################################
2 ## Name: XS/ColourDialog.xs
3 ## Purpose: XS for Wx::ColourDialog
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: ColourDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2000-2001, 2003, 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 #include <wx/colordlg.h>
15 MODULE=Wx PACKAGE=Wx::ColourDialog
18 wxColourDialog::new( parent, data = 0 )
23 wxColourDialog::GetColourData()
25 RETVAL = new wxColourData( THIS->GetColourData() );
29 wxColourDialog::ShowModal()
31 MODULE=Wx PACKAGE=Wx::ColourData
39 wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
43 wxColourData::DESTROY()
45 wxPli_thread_sv_unregister( aTHX_ "Wx::ColourData", THIS, ST(0) );
49 wxColourData::GetChooseFull()
52 wxColourData::GetColour()
54 RETVAL = new wxColour( THIS->GetColour() );
58 wxColourData::GetCustomColour( i )
61 RETVAL = new wxColour( THIS->GetCustomColour( i ) );
65 wxColourData::SetChooseFull( flag )
69 wxColourData::SetColour( colour )
74 wxColourData::SetCustomColour( i, colour )
79 MODULE=Wx PACKAGE=Wx PREFIX=wx
82 wxGetColourFromUser( parent, colInit = (wxColour*)&wxNullColour )
86 RETVAL = new wxColour( wxGetColourFromUser( parent, *colInit ) );