Thread editor in perl 0.3.n: hurra (630 answers)
Opened by zipster at 2005-10-21 17:46

pktm
 2007-08-08 23:20
#97798 #97798
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
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 :) )
Antworten mit Zitat

View full thread editor in perl 0.3.n: hurra