1 #############################################################################
2 ## Name: ext/print/XS/Printer.xs
3 ## Purpose: XS for Wx::Printer
4 ## Author: Mattia Barbon
7 ## RCS-ID: $Id: Printer.xs 2057 2007-06-18 23:03:00Z mbarbon $
8 ## Copyright: (c) 2001-2004, 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 #############################################################################
16 MODULE=Wx PACKAGE=Wx::Printer
19 wxPrinter::new( data = 0 )
20 wxPrintDialogData* data
25 wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
31 wxPli_thread_sv_unregister( aTHX_ "Wx::Printer", THIS, ST(0) );
38 wxPrinter::GetPrintDialogData()
40 RETVAL = &THIS->GetPrintDialogData();
45 wxPrinter::CreateAbortWindow( parent, printout )
52 RETVAL = wxPrinter::GetLastError();
57 wxPrinter::Print( parent, printout, prompt = true )
63 wxPrinter::PrintDialog( parent )
67 wxPrinter::ReportError( parent, printout, message )
72 THIS->ReportError( parent, printout, message );
75 wxPrinter::Setup( parent )