Add libwx-perl
[pkg-perl] / deb-src / libwx-perl / libwx-perl-0.96 / ext / print / XS / Printer.xs
1 #############################################################################
2 ## Name:        ext/print/XS/Printer.xs
3 ## Purpose:     XS for Wx::Printer
4 ## Author:      Mattia Barbon
5 ## Modified by:
6 ## Created:     29/05/2001
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 #############################################################################
12
13 #include <wx/print.h>
14 #include <wx/dc.h>
15
16 MODULE=Wx PACKAGE=Wx::Printer
17
18 wxPrinter*
19 wxPrinter::new( data = 0 )
20     wxPrintDialogData* data
21
22 static void
23 wxPrinter::CLONE()
24   CODE:
25     wxPli_thread_sv_clone( aTHX_ CLASS, (wxPliCloneSV)wxPli_detach_object );
26
27 ## // thread OK
28 void
29 wxPrinter::DESTROY()
30   CODE:
31     wxPli_thread_sv_unregister( aTHX_ "Wx::Printer", THIS, ST(0) );
32     delete THIS;
33
34 bool
35 wxPrinter::GetAbort()
36
37 wxPrintDialogData*
38 wxPrinter::GetPrintDialogData()
39   CODE:
40     RETVAL = &THIS->GetPrintDialogData();
41   OUTPUT:
42     RETVAL
43
44 void
45 wxPrinter::CreateAbortWindow( parent, printout )
46     wxWindow* parent
47     wxPrintout* printout
48
49 wxPrinterError
50 GetLastError()
51   CODE:
52     RETVAL = wxPrinter::GetLastError();
53   OUTPUT:
54     RETVAL
55
56 bool
57 wxPrinter::Print( parent, printout, prompt = true )
58     wxWindow* parent
59     wxPrintout* printout
60     bool prompt
61
62 wxDC*
63 wxPrinter::PrintDialog( parent )
64     wxWindow* parent
65
66 void
67 wxPrinter::ReportError( parent, printout, message )
68     wxWindow* parent
69     wxPrintout* printout
70     wxString message
71   CODE:
72     THIS->ReportError( parent, printout, message );
73
74 bool
75 wxPrinter::Setup( parent )
76     wxWindow* parent