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

#if wxPERL_USE_FONTDLG

#include <wx/fontdlg.h>

MODULE=Wx PACKAGE=Wx::FontData

wxFontData*
wxFontData::new()

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

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

void
wxFontData::EnableEffects( enable )
    bool enable

bool
wxFontData::GetAllowSymbols()

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

wxFont*
wxFontData::GetChosenFont()
  CODE:
    RETVAL = new wxFont( THIS->GetChosenFont() );
  OUTPUT:
    RETVAL

bool
wxFontData::GetEnableEffects()

wxFont*
wxFontData::GetInitialFont()
  CODE:
    RETVAL = new wxFont( THIS->GetInitialFont() );
  OUTPUT:
    RETVAL

bool
wxFontData::GetShowHelp()

void
wxFontData::SetAllowSymbols( allow )
    bool allow

void
wxFontData::SetChosenFont( font )
    wxFont* font
  CODE:
    THIS->SetChosenFont( *font );

void
wxFontData::SetColour( colour )
    wxColour colour

void
wxFontData::SetInitialFont( font )
    wxFont* font
  CODE:
    THIS->SetInitialFont( *font );

void
wxFontData::SetRange( min, max )
    int min
    int max

void
wxFontData::SetShowHelp( show )
    bool show

MODULE=Wx PACKAGE=Wx::FontDialog

wxFontDialog*
wxFontDialog::new( parent, data = 0 )
    wxWindow* parent
    wxFontData* data
  CODE:
    RETVAL = new wxFontDialog( parent, *data );
  OUTPUT:
    RETVAL

wxFontData*
wxFontDialog::GetFontData()
  CODE:
    RETVAL = new wxFontData( THIS->GetFontData() );
  OUTPUT:
    RETVAL

MODULE=Wx PACKAGE=Wx PREFIX=wx

wxFont*
wxGetFontFromUser( parent = 0, fontInit = (wxFont*)&wxNullFont )
    wxWindow* parent
    wxFont* fontInit
  CODE:
    RETVAL = new wxFont( wxGetFontFromUser( parent, *fontInit ) );
  OUTPUT:
    RETVAL

#endif