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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
<<EXPORT:wxPrintout new/2,new/3 wxPrintout:EXPORT>>
<<wxPrintout
%% @spec (Title::string(), OnPrintPage::function()) -> wxPrintout:wxPrintout()
%% @doc @equiv new(Title, OnPrintPage, [])
new(Title, OnPrintPage) ->
new(Title, OnPrintPage, []).
%% @spec (Title::string(), OnPrintPage::function(), [Option]) -> wxPrintout:wxPrintout()
%% Option = {onPreparePrinting, OnPreparePrinting::function()} |
%% {onBeginPrinting, OnBeginPrinting::function()} |
%% {onEndPrinting, OnEndPrinting::function()} |
%% {onBeginDocument, OnBeginDocument::function()} |
%% {onEndDocument, OnEndDocument::function()} |
%% {hasPage, HasPage::function()} |
%% {getPageInfo, GetPageInfo::function()}
%% @doc Creates a wxPrintout object with a callback fun and optionally other callback funs.<br />
%% <pre>OnPrintPage(This,Page) -> boolean() </pre>
%% <pre>OnPreparePrinting(This) -> term() </pre>
%% <pre>OnBeginPrinting(This) -> term() </pre>
%% <pre>OnEndPrinting(This) -> term() </pre>
%% <pre>OnBeginDocument(This,StartPage,EndPage) -> boolean() </pre>
%% <pre>OnEndDocument(This) -> term() </pre>
%% <pre>HasPage(This,Page)} -> boolean() </pre>
%% <pre>GetPageInfo(This) -> {MinPage:.integer(), MaxPage::integer(), PageFrom::integer(), PageTo::integer()} </pre>
%% The <b>This</b> argument is the wxPrintout object reference to this object
%% <br /> NOTE: The callbacks may not call other processes.
new(Title, OnPrintPage, Opts) when is_list(Title), is_function(OnPrintPage), is_list(Opts) ->
OnPrint = fun([This,Page]) ->
Bool = OnPrintPage(This,Page),
<<(wxe_util:from_bool(Bool)):32/?UI>>
end,
OnPrintPageId = wxe_util:get_cbId(OnPrint),
MOpts = fun({onPreparePrinting, F},Acc) when is_function(F) ->
Fun = fun([This]) ->
F(This),
<<>>
end,
[<<1:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({onBeginPrinting, F},Acc) when is_function(F) ->
Fun = fun([This]) ->
F(This),
<<>>
end,
[<<2:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({onEndPrinting, F},Acc) when is_function(F) ->
Fun = fun([This]) ->
F(This),
<<>>
end,
[<<3:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({onBeginDocument, F},Acc) when is_function(F) ->
Fun = fun([This,S,E]) ->
BegD = F(This,S,E),
<<(wxe_util:from_bool(BegD)):32/?UI>>
end,
[<<4:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({onEndDocument, F},Acc) when is_function(F) ->
Fun = fun([This]) ->
F(This),
<<>>
end,
[<<5:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({hasPage, F},Acc) when is_function(F) ->
Fun = fun([This,Page]) ->
HasP = F(This,Page),
<<(wxe_util:from_bool(HasP)):32/?UI>>
end,
[<<6:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc];
({getPageInfo, F},Acc) when is_function(F) ->
Fun = fun([This]) ->
{Min,Max,PF,PT} = F(This),
<<Min:32/?UI,Max:32/?UI,PF:32/?UI,PT:32/?UI>>
end,
[<<7:32/?UI,(wxe_util:get_cbId(Fun)):32/?UI>>|Acc]
end,
BinOpt = list_to_binary(lists:foldl(MOpts, [<<0:32>>], Opts)),
Title_UC = unicode:characters_to_binary([Title,0]),
wxe_util:call(~s, << (byte_size(Title_UC)):32/?UI,Title_UC/binary,
0:(((8- ((4+byte_size(Title_UC)) band 16#7)) band 16#7))/unit:8,
OnPrintPageId:32/?UI,
BinOpt/binary>>).
wxPrintout>>
|
