#############################################################################
## Name:        XS/ColourDialog.xs
## Purpose:     XS for Wx::ColourDialog
## Author:      Mattia Barbon
## Modified by:
## Created:     27/11/2000
## RCS-ID:      $Id: ColourDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2000-2001, 2003, 2006-2007 Mattia Barbon
## Licence:     This program is free software; you can redistribute it and/or
##              modify it under the same terms as Perl itself
#############################################################################

#include <wx/colordlg.h>

MODULE=Wx PACKAGE=Wx::ColourDialog

wxColourDialog*
wxColourDialog::new( parent, data = 0 )
    wxWindow* parent
    wxColourData* data

wxColourData*
wxColourDialog::GetColourData()
  CODE:
    RETVAL = new wxColourData( THIS->GetColourData() );
  OUTPUT: RETVAL

int
wxColourDialog::ShowModal()

MODULE=Wx PACKAGE=Wx::ColourData

wxColourData*
wxColourData::new()

static void
wxColourData::CLONE()
  CODE:
    wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );

## // thread OK
void
wxColourData::DESTROY()
  CODE:
    wxPli_thread_sv_unregister( aTHX_ "Wx::ColourData", THIS, ST(0) );
    delete THIS;

bool
wxColourData::GetChooseFull()

wxColour*
wxColourData::GetColour()
  CODE:
    RETVAL = new wxColour( THIS->GetColour() );
  OUTPUT: RETVAL

wxColour*
wxColourData::GetCustomColour( i )
    int i
  CODE:
    RETVAL = new wxColour( THIS->GetCustomColour( i ) );
  OUTPUT: RETVAL

void
wxColourData::SetChooseFull( flag )
    bool flag

void
wxColourData::SetColour( colour )
    wxColour* colour
  C_ARGS: *colour

void
wxColourData::SetCustomColour( i, colour )
    int i
    wxColour* colour
  C_ARGS: i, *colour

MODULE=Wx PACKAGE=Wx PREFIX=wx

wxColour*
wxGetColourFromUser( parent, colInit = (wxColour*)&wxNullColour )
    wxWindow* parent
    wxColour* colInit
  CODE:
    RETVAL = new wxColour( wxGetColourFromUser( parent, *colInit ) );
  OUTPUT:
    RETVAL
