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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
%%
%% wp9_dialogs.erl --
%%
%% Standard plugin for dialogs.
%%
%% Copyright (c) 2001-2011 Bjorn Gustavsson
%%
%% See the file "license.terms" for information on usage and redistribution
%% of this file, and for a DISCLAIMER OF ALL WARRANTIES.
%%
%% $Id$
%%
-module(wp9_dialogs).
-export([init/1]).
-include_lib("wings/src/wings.hrl").
init(Next) ->
wpa:pref_set_default(?MODULE, utf8, true),
fun(What) -> ui(What, Next) end.
ui({file,open_dialog,Prop,Cont}, _Next) ->
Title = proplists:get_value(title, Prop, ?__(1,"Open")),
file_dialog(?wxFD_OPEN, Prop, Title, Cont);
ui({file,save_dialog,Prop,Cont}, _Next) ->
Title = proplists:get_value(title, Prop, ?__(2,"Save")),
file_dialog(?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT, Prop, Title, Cont);
ui({image,formats,Formats}, _Next) ->
image_formats(Formats);
ui({image,read,Prop}, _Next) ->
read_image(Prop);
ui({image,write,Prop}, _Next) ->
write_image(Prop);
ui(What, Next) -> Next(What).
file_dialog(Type, Prop, Title, Cont) ->
Frame = proplists:get_value(parent, Prop, ?GET(top_frame)),
DefDir = proplists:get_value(directory, Prop),
DefName = proplists:get_value(default_filename, Prop, ""),
Filters = wings_file:file_filters(Prop),
Multiple = proplists:get_value(multiple, Prop, false),
Type0 = if Multiple =:= true -> Type bor ?wxFD_MULTIPLE;
true -> Type
end,
Dlg = wxFileDialog:new(Frame,
[{message, Title},
{defaultDir, DefDir},
{defaultFile, DefName},
{wildCard, Filters},
{style, Type0}]),
case wxFileDialog:showModal(Dlg) of
?wxID_OK ->
File = if Multiple =:= true ->
wxFileDialog:getPaths(Dlg);
true ->
wxFileDialog:getPath(Dlg)
end,
wxDialog:destroy(Dlg),
if Multiple =:= true ->
[Cont(filename:join([File0])) || File0 <- File],
keep;
true ->
Cont(filename:join([File]))
end;
_Cancel ->
wxDialog:destroy(Dlg),
keep
end.
read_image(Prop) ->
Name = proplists:get_value(filename, Prop),
case string:to_lower(filename:extension(Name)) of
".tga" ->
e3d_image:load(Name, Prop);
".dds" ->
e3d_image:load(Name, Prop);
_ ->
BlockWxMsgs = wxLogNull:new(),
case wxImage:loadFile(Image=wxImage:new(), Name) of
true ->
E3d = wings_image:wxImage_to_e3d(Image),
wxImage:destroy(Image),
wxLogNull:destroy(BlockWxMsgs),
e3d_image:fix_outtype(Name, E3d, Prop);
false ->
wxLogNull:destroy(BlockWxMsgs),
case filelib:is_regular(Name) of
true -> {error, unsupported_format};
false -> {error, enoent}
end
end
end.
write_image(Prop) ->
Name = proplists:get_value(filename, Prop),
Image = proplists:get_value(image, Prop),
case string:to_lower(filename:extension(Name)) of
".tga" ->
e3d_image:save(Image, Name, Prop);
".dds" ->
e3d_image:save(Image, Name, Prop);
_Ext ->
case wxImage:saveFile(Wx = wings_image:e3d_to_wxImage(Image), Name) of
true -> wxImage:destroy(Wx), ok;
false -> wxImage:destroy(Wx), {error, unknown}
end
end.
image_formats(Fs0) ->
Fs1 = [{".bmp",?__(1,"BMP Bitmap File")},
{".gif",?__(6,"Compuserve GIF")}, %% only support 8pp
{".jpg",?__(5, "JPEG File")},
{".png",?__(3,"PNG File")},
{".tif",?__(2,"Tiff Bitmap")},
{".tga",?__(4,"Targa File")},
{".dds",?__(7,"Direct Draw File")}
|Fs0],
Fs2 = sofs:relation(Fs1),
Fs3 = sofs:relation_to_family(Fs2),
Fs = sofs:to_external(Fs3),
[{Ext,Desc} || {Ext,[Desc|_]} <- Fs].
|
