Thread editor in perl 0.3.n: hurra
(630 answers)
Opened by zipster at 2005-10-21 17:46 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 =head2 OnBeginDocument() wxPrintout::OnBeginPrinting void OnBeginPrinting() Called by the framework at the start of printing. OnBeginPrinting is called once for every print job (regardless of how many copies are being printed). =cut sub OnBeginDocument { my $this = shift; Wx::LogMessage( "OnBeginDocument: %d, %d", @_ ); return $this->SUPER::OnBeginDocument( @_ ); } # /OnBeginDocument =head2 OnEndDocument() wxPrintout::OnEndDocument void OnEndDocument() Called by the framework at the end of document printing. OnEndDocument is called once for every copy printed. The base wxPrintout::OnEndDocument must be called from within the overridden function, since it calls wxDC::EndDoc. =cut sub OnEndDocument { my $this = shift; Wx::LogMessage( "OnEndDocument" ); return $this->SUPER::OnEndDocument(); } =head2 OnBeginPrinting() wxPrintout::OnBeginPrinting void OnBeginPrinting() Called by the framework at the start of printing. OnBeginPrinting is called once for every print job (regardless of how many copies are being printed). =cut sub OnBeginPrinting { my $this = shift; Wx::LogMessage( "OnBeginPrinting" ); return $this->SUPER::OnBeginPrinting(); } # /OnBeginPrinting =head2 OnEndPrinting() wxPrintout::OnEndPrinting void OnEndPrinting() Called by the framework at the end of printing. OnEndPrinting is called once for every print job (regardless of how many copies are being printed). =cut sub OnEndPrinting { my $this = shift; Wx::LogMessage( "OnEndPrinting" ); return $this->SUPER::OnEndPrinting(); } # /OnEndPrinting http://www.intergastro-service.de (mein erstes CMS :) )
|