The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#############################################################################
## Name:        ext/print/XS/PrintDialog.xs
## Purpose:     XS for Wx::PrintDialog
## Author:      Mattia Barbon
## Modified by:
## Created:     02/06/2001
## RCS-ID:      $Id: PrintDialog.xs 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright:   (c) 2001, 2004 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/printdlg.h>
#include <wx/dc.h>

MODULE=Wx PACKAGE=Wx::PrintDialog

wxPrintDialog*
wxPrintDialog::new( parent, data = 0 )
    wxWindow* parent
    wxPrintDialogData* data

wxPrintDialogData*
wxPrintDialog::GetPrintDialogData()
  CODE:
    RETVAL = new wxPrintDialogData( THIS->GetPrintDialogData() );
  OUTPUT:
    RETVAL

wxDC*
wxPrintDialog::GetPrintDC()