source: extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm @ 3384

Last change on this file since 3384 was 3384, checked in by ronosman, 11 years ago

Feature 1005 added : 2 new right-click actions : expand all and collapse all for category tree.

  • Property svn:eol-style set to LF
File size: 57.6 KB
Line 
1# +-----------------------------------------------------------------------+
2# | pLoader - a Perl photo uploader for Piwigo                            |
3# +-----------------------------------------------------------------------+
4# | Copyright(C) 2008      Piwigo Team                  http://piwigo.org |
5# +-----------------------------------------------------------------------+
6# | This program is free software; you can redistribute it and/or modify  |
7# | it under the terms of the GNU General Public License as published by  |
8# | the Free Software Foundation                                          |
9# |                                                                       |
10# | This program is distributed in the hope that it will be useful, but   |
11# | WITHOUT ANY WARRANTY; without even the implied warranty of            |
12# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
13# | General Public License for more details.                              |
14# |                                                                       |
15# | You should have received a copy of the GNU General Public License     |
16# | along with this program; if not, write to the Free Software           |
17# | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
18# | USA.                                                                  |
19# +-----------------------------------------------------------------------+
20package Uploader::GUI::wxFrameAUI;
21use strict;
22use Carp;
23use Wx;
24use Wx::DND;
25use Wx qw/
26             wxITEM_NORMAL
27             wxNullBitmap
28             wxID_OK
29             wxDEFAULT_FRAME_STYLE
30             wxVERTICAL
31             wxGROW
32             wxBITMAP_TYPE_JPEG
33             wxBITMAP_TYPE_GIF
34             wxBITMAP_TYPE_PNG
35             wxTB_FLAT
36             wxSIZE
37             wxWHITE
38             wxBLACK
39             wxID_CANCEL
40             wxFD_OPEN
41             wxFD_MULTIPLE
42             wxLI_HORIZONTAL
43             wxALIGN_CENTER_VERTICAL
44             wxALL
45             wxDefaultPosition
46             wxDefaultSize
47             wxTheApp
48             wxIMAGE_LIST_NORMAL
49             wxAUI_NB_TAB_MOVE
50             wxAUI_NB_TAB_SPLIT
51             wxNO_BORDER
52             wxTE_MULTILINE
53             wxTE_READONLY
54             wxITEM_NORMAL
55             wxCLIP_CHILDREN
56             wxBORDER_NONE
57             wxNullBitmap
58             wxTR_MULTIPLE
59             wxTR_EXTENDED
60             wxTR_HIDE_ROOT
61             wxTR_HAS_BUTTONS
62             wxMAXIMIZE
63             wxOK
64             wxICON_EXCLAMATION
65             wxICON_INFORMATION
66             WXK_DELETE
67             wxLANGUAGE_ABKHAZIAN   
68             wxLANGUAGE_AFAR   
69             wxLANGUAGE_AFRIKAANS   
70             wxLANGUAGE_ALBANIAN   
71             wxLANGUAGE_AMHARIC   
72             wxLANGUAGE_ARABIC   
73             wxLANGUAGE_ARABIC_ALGERIA   
74             wxLANGUAGE_ARABIC_BAHRAIN   
75             wxLANGUAGE_ARABIC_EGYPT   
76             wxLANGUAGE_ARABIC_IRAQ   
77             wxLANGUAGE_ARABIC_JORDAN   
78             wxLANGUAGE_ARABIC_KUWAIT   
79             wxLANGUAGE_ARABIC_LEBANON   
80             wxLANGUAGE_ARABIC_LIBYA   
81             wxLANGUAGE_ARABIC_MOROCCO   
82             wxLANGUAGE_ARABIC_OMAN   
83             wxLANGUAGE_ARABIC_QATAR   
84             wxLANGUAGE_ARABIC_SAUDI_ARABIA   
85             wxLANGUAGE_ARABIC_SUDAN   
86             wxLANGUAGE_ARABIC_SYRIA   
87             wxLANGUAGE_ARABIC_TUNISIA   
88             wxLANGUAGE_ARABIC_UAE   
89             wxLANGUAGE_ARABIC_YEMEN   
90             wxLANGUAGE_ARMENIAN   
91             wxLANGUAGE_ASSAMESE   
92             wxLANGUAGE_AYMARA   
93             wxLANGUAGE_AZERI   
94             wxLANGUAGE_AZERI_CYRILLIC   
95             wxLANGUAGE_AZERI_LATIN   
96             wxLANGUAGE_BASHKIR   
97             wxLANGUAGE_BASQUE   
98             wxLANGUAGE_BELARUSIAN   
99             wxLANGUAGE_BENGALI   
100             wxLANGUAGE_BHUTANI   
101             wxLANGUAGE_BIHARI   
102             wxLANGUAGE_BISLAMA   
103             wxLANGUAGE_BRETON   
104             wxLANGUAGE_BULGARIAN   
105             wxLANGUAGE_BURMESE   
106             wxLANGUAGE_CAMBODIAN   
107             wxLANGUAGE_CATALAN   
108             wxLANGUAGE_CHINESE   
109             wxLANGUAGE_CHINESE_SIMPLIFIED   
110             wxLANGUAGE_CHINESE_TRADITIONAL   
111             wxLANGUAGE_CHINESE_HONGKONG   
112             wxLANGUAGE_CHINESE_MACAU   
113             wxLANGUAGE_CHINESE_SINGAPORE   
114             wxLANGUAGE_CHINESE_TAIWAN   
115             wxLANGUAGE_CORSICAN   
116             wxLANGUAGE_CROATIAN   
117             wxLANGUAGE_CZECH   
118             wxLANGUAGE_DANISH   
119             wxLANGUAGE_DUTCH   
120             wxLANGUAGE_DUTCH_BELGIAN   
121             wxLANGUAGE_ENGLISH   
122             wxLANGUAGE_ENGLISH_UK   
123             wxLANGUAGE_ENGLISH_US   
124             wxLANGUAGE_ENGLISH_AUSTRALIA   
125             wxLANGUAGE_ENGLISH_BELIZE   
126             wxLANGUAGE_ENGLISH_BOTSWANA   
127             wxLANGUAGE_ENGLISH_CANADA   
128             wxLANGUAGE_ENGLISH_CARIBBEAN   
129             wxLANGUAGE_ENGLISH_DENMARK   
130             wxLANGUAGE_ENGLISH_EIRE   
131             wxLANGUAGE_ENGLISH_JAMAICA   
132             wxLANGUAGE_ENGLISH_NEW_ZEALAND   
133             wxLANGUAGE_ENGLISH_PHILIPPINES   
134             wxLANGUAGE_ENGLISH_SOUTH_AFRICA   
135             wxLANGUAGE_ENGLISH_TRINIDAD   
136             wxLANGUAGE_ENGLISH_ZIMBABWE   
137             wxLANGUAGE_ESPERANTO   
138             wxLANGUAGE_ESTONIAN   
139             wxLANGUAGE_FAEROESE   
140             wxLANGUAGE_FARSI   
141             wxLANGUAGE_FIJI   
142             wxLANGUAGE_FINNISH   
143             wxLANGUAGE_FRENCH   
144             wxLANGUAGE_FRENCH_BELGIAN   
145             wxLANGUAGE_FRENCH_CANADIAN   
146             wxLANGUAGE_FRENCH_LUXEMBOURG   
147             wxLANGUAGE_FRENCH_MONACO   
148             wxLANGUAGE_FRENCH_SWISS   
149             wxLANGUAGE_FRISIAN   
150             wxLANGUAGE_GALICIAN   
151             wxLANGUAGE_GEORGIAN   
152             wxLANGUAGE_GERMAN   
153             wxLANGUAGE_GERMAN_AUSTRIAN   
154             wxLANGUAGE_GERMAN_BELGIUM   
155             wxLANGUAGE_GERMAN_LIECHTENSTEIN   
156             wxLANGUAGE_GERMAN_LUXEMBOURG   
157             wxLANGUAGE_GERMAN_SWISS   
158             wxLANGUAGE_GREEK   
159             wxLANGUAGE_GREENLANDIC   
160             wxLANGUAGE_GUARANI   
161             wxLANGUAGE_GUJARATI   
162             wxLANGUAGE_HAUSA   
163             wxLANGUAGE_HEBREW   
164             wxLANGUAGE_HINDI   
165             wxLANGUAGE_HUNGARIAN   
166             wxLANGUAGE_ICELANDIC   
167             wxLANGUAGE_INDONESIAN   
168             wxLANGUAGE_INTERLINGUA   
169             wxLANGUAGE_INTERLINGUE   
170             wxLANGUAGE_INUKTITUT   
171             wxLANGUAGE_INUPIAK   
172             wxLANGUAGE_IRISH   
173             wxLANGUAGE_ITALIAN   
174             wxLANGUAGE_ITALIAN_SWISS   
175             wxLANGUAGE_JAPANESE   
176             wxLANGUAGE_JAVANESE   
177             wxLANGUAGE_KANNADA   
178             wxLANGUAGE_KASHMIRI   
179             wxLANGUAGE_KASHMIRI_INDIA   
180             wxLANGUAGE_KAZAKH   
181             wxLANGUAGE_KERNEWEK   
182             wxLANGUAGE_KINYARWANDA   
183             wxLANGUAGE_KIRGHIZ   
184             wxLANGUAGE_KIRUNDI   
185             wxLANGUAGE_KONKANI   
186             wxLANGUAGE_KOREAN   
187             wxLANGUAGE_KURDISH   
188             wxLANGUAGE_LAOTHIAN   
189             wxLANGUAGE_LATIN   
190             wxLANGUAGE_LATVIAN   
191             wxLANGUAGE_LINGALA   
192             wxLANGUAGE_LITHUANIAN   
193             wxLANGUAGE_MACEDONIAN   
194             wxLANGUAGE_MALAGASY   
195             wxLANGUAGE_MALAY   
196             wxLANGUAGE_MALAYALAM   
197             wxLANGUAGE_MALAY_BRUNEI_DARUSSALAM   
198             wxLANGUAGE_MALAY_MALAYSIA   
199             wxLANGUAGE_MALTESE   
200             wxLANGUAGE_MANIPURI   
201             wxLANGUAGE_MAORI   
202             wxLANGUAGE_MARATHI   
203             wxLANGUAGE_MOLDAVIAN   
204             wxLANGUAGE_MONGOLIAN   
205             wxLANGUAGE_NAURU   
206             wxLANGUAGE_NEPALI   
207             wxLANGUAGE_NEPALI_INDIA   
208             wxLANGUAGE_NORWEGIAN_BOKMAL   
209             wxLANGUAGE_NORWEGIAN_NYNORSK   
210             wxLANGUAGE_OCCITAN   
211             wxLANGUAGE_ORIYA   
212             wxLANGUAGE_OROMO   
213             wxLANGUAGE_PASHTO   
214             wxLANGUAGE_POLISH   
215             wxLANGUAGE_PORTUGUESE   
216             wxLANGUAGE_PORTUGUESE_BRAZILIAN   
217             wxLANGUAGE_PUNJABI   
218             wxLANGUAGE_QUECHUA   
219             wxLANGUAGE_RHAETO_ROMANCE   
220             wxLANGUAGE_ROMANIAN   
221             wxLANGUAGE_RUSSIAN   
222             wxLANGUAGE_RUSSIAN_UKRAINE   
223             wxLANGUAGE_SAMI   
224             wxLANGUAGE_SAMOAN   
225             wxLANGUAGE_SANGHO   
226             wxLANGUAGE_SANSKRIT   
227             wxLANGUAGE_SCOTS_GAELIC   
228             wxLANGUAGE_SERBIAN   
229             wxLANGUAGE_SERBIAN_CYRILLIC   
230             wxLANGUAGE_SERBIAN_LATIN   
231             wxLANGUAGE_SERBO_CROATIAN   
232             wxLANGUAGE_SESOTHO   
233             wxLANGUAGE_SETSWANA   
234             wxLANGUAGE_SHONA   
235             wxLANGUAGE_SINDHI   
236             wxLANGUAGE_SINHALESE   
237             wxLANGUAGE_SISWATI   
238             wxLANGUAGE_SLOVAK   
239             wxLANGUAGE_SLOVENIAN   
240             wxLANGUAGE_SOMALI   
241             wxLANGUAGE_SPANISH   
242             wxLANGUAGE_SPANISH_ARGENTINA   
243             wxLANGUAGE_SPANISH_BOLIVIA   
244             wxLANGUAGE_SPANISH_CHILE   
245             wxLANGUAGE_SPANISH_COLOMBIA   
246             wxLANGUAGE_SPANISH_COSTA_RICA   
247             wxLANGUAGE_SPANISH_DOMINICAN_REPUBLIC   
248             wxLANGUAGE_SPANISH_ECUADOR   
249             wxLANGUAGE_SPANISH_EL_SALVADOR   
250             wxLANGUAGE_SPANISH_GUATEMALA   
251             wxLANGUAGE_SPANISH_HONDURAS   
252             wxLANGUAGE_SPANISH_MEXICAN   
253             wxLANGUAGE_SPANISH_MODERN   
254             wxLANGUAGE_SPANISH_NICARAGUA   
255             wxLANGUAGE_SPANISH_PANAMA   
256             wxLANGUAGE_SPANISH_PARAGUAY   
257             wxLANGUAGE_SPANISH_PERU   
258             wxLANGUAGE_SPANISH_PUERTO_RICO   
259             wxLANGUAGE_SPANISH_URUGUAY   
260             wxLANGUAGE_SPANISH_US   
261             wxLANGUAGE_SPANISH_VENEZUELA   
262             wxLANGUAGE_SUNDANESE   
263             wxLANGUAGE_SWAHILI   
264             wxLANGUAGE_SWEDISH   
265             wxLANGUAGE_SWEDISH_FINLAND   
266             wxLANGUAGE_TAGALOG   
267             wxLANGUAGE_TAJIK   
268             wxLANGUAGE_TAMIL   
269             wxLANGUAGE_TATAR   
270             wxLANGUAGE_TELUGU   
271             wxLANGUAGE_THAI   
272             wxLANGUAGE_TIBETAN   
273             wxLANGUAGE_TIGRINYA   
274             wxLANGUAGE_TONGA   
275             wxLANGUAGE_TSONGA   
276             wxLANGUAGE_TURKISH   
277             wxLANGUAGE_TURKMEN   
278             wxLANGUAGE_TWI   
279             wxLANGUAGE_UIGHUR   
280             wxLANGUAGE_UKRAINIAN   
281             wxLANGUAGE_URDU   
282             wxLANGUAGE_URDU_INDIA   
283             wxLANGUAGE_URDU_PAKISTAN   
284             wxLANGUAGE_UZBEK   
285             wxLANGUAGE_UZBEK_CYRILLIC   
286             wxLANGUAGE_UZBEK_LATIN   
287             wxLANGUAGE_VALENCIAN   
288             wxLANGUAGE_VIETNAMESE   
289             wxLANGUAGE_VOLAPUK   
290             wxLANGUAGE_WELSH   
291             wxLANGUAGE_WOLOF   
292             wxLANGUAGE_XHOSA   
293             wxLANGUAGE_YIDDISH   
294             wxLANGUAGE_YORUBA   
295             wxLANGUAGE_ZHUANG   
296             wxLANGUAGE_ZULU 
297         /;
298use base qw/Wx::Frame Class::Accessor::Fast/;
299use File::Spec;
300use Wx::Locale qw/:default/;
301use Encode qw/encode decode is_utf8/;;
302
303
304my @properties = 
305    qw/
306          progressdlg
307          upload_progressdlg
308          imageviewer
309          tree
310          tree_root
311          treeimglist
312          tree_item_default
313          topsizer
314          pwg
315          manager
316          logwnd
317          oldlogwnd
318          htmlhome
319          notebook
320          categories
321          imagelist
322          image_preview
323          image_prop_piwigo
324          image_prop_exif
325          notebook_image_properties
326          notebook_global_settings
327          general_settings_panel
328          resized_settings_panel
329          thumbnail_settings_panel
330          preview_settings_panel
331          piwigo_properties
332          exif_properties
333          general_settings
334          resized_settings
335          thumbnail_settings
336          preview_settings
337          toolbar
338          branding
339          preview_w
340          preview_h
341          perspective
342          current_imageviewer_index
343          imageviewer_mnu
344          tree_mnu
345          imageviewer_select_multi
346      /;
347__PACKAGE__->mk_accessors( @properties );
348
349use Wx::Event 
350    qw/
351          EVT_MENU
352          EVT_TREE_SEL_CHANGED
353          EVT_CLOSE
354          EVT_LIST_END_LABEL_EDIT
355          EVT_LIST_ITEM_SELECTED
356          EVT_LIST_ITEM_ACTIVATED
357          EVT_LIST_ITEM_RIGHT_CLICK
358          EVT_TREE_ITEM_RIGHT_CLICK
359          EVT_LIST_KEY_DOWN
360          EVT_UPDATE_UI       
361      /;
362     
363use Uploader::GUI::wxImageListCtrl;
364use Uploader::GUI::wxImagePreview;
365use Uploader::GUI::wxImageProcessingProgressDlg;
366use Wx::Html;
367use Uploader::GUI::wxHtmlWindow;
368use Data::Dumper;
369use Wx::AUI;
370use Storable;
371use Uploader::GUI::wxPropertyGridPanel;
372use Encode qw/encode decode is_utf8/;
373
374$|=1;
375
376my $ID_TREE_CTX_MENU = 20000 ;
377my $ID_IMAGEVIEWER_CTX_MENU = 20100 ;
378
379sub new {
380  my( $class, $params ) = @_;
381  my( $self ) = $class->SUPER::new( 
382                                      undef, 
383                                      -1, 
384                                      $params->{title}, 
385                                      [ $params->{x}, $params->{y} ],
386                                      [ $params->{width}, $params->{height} ],
387                                      wxDEFAULT_FRAME_STYLE
388                                   );
389    $self->preview_w(
390        $params->{preview_w}||400
391    );
392
393    $self->preview_h(
394        $params->{preview_h}||300
395    );
396   
397    $self->perspective(
398        $params->{perspective}
399    );
400   
401    $self->current_imageviewer_index(
402        $params->{imageviewer_index}||0
403    );
404
405    $self->pwg( $params->{pwg} );
406    $self->imagelist( $params->{imagelist} );
407
408    # callback for GUI refresh : add thumbnail images to the imageviewer control
409    $self->imagelist->SetNewFilesViewerRefreshCallback(
410        sub { $self->SetNewFilesViewerRefresh(@_) }
411    );
412
413    # callback for GUI refresh : progress dialog display of thumbnail image being created
414    $self->imagelist->SetNewFilesProgressCallback(
415        sub { $self->SetNewFilesProgress(@_) }
416    );
417
418    $self->imagelist->SetNewFilesDisplayEndInfoCallback(
419        sub { $self->SetNewFilesDisplayEndInfo(@_) }
420    );
421
422
423    # callback for GUI refresh : remove thumbnail images from imageviewer control
424    $self->imagelist->UploadImagesViewerCallback(
425        sub { $self->UploadImagesViewerRefresh(@_) }
426    );
427
428
429
430    # callback for GUI refresh : progress dialog display current uploaded image
431    $self->imagelist->progress_thumbnail_refresh(
432        sub { $self->UploadProgressThumbnailRefresh(@_) }
433    );
434
435    $self->imagelist->progress_msg_refresh(
436        sub { $self->UploadProgressMessageRefresh(@_) }
437    );
438
439
440    $self->imagelist->progressbar_refresh(
441        sub { $self->UploadProgressBarRefresh(@_) }
442    );
443   
444    $self->imagelist->progress_endinfo_refresh(
445        sub { $self->UploadDisplayEndInfo(@_) }
446    );
447
448
449    $self->imagelist->pwg(
450        $self->pwg
451    );
452
453    $self->imagelist->categories(
454        []
455    );
456
457
458    $self->manager( Wx::AuiManager->new );
459    $self->manager->SetManagedWindow( $self );
460    $self->_set_setting_properties;
461    $self->_initFrame;
462    $self->_initMenus;
463    $self->_initEventHandlers;
464    $self->_initImgTypes;   
465
466
467    $self->imageviewer->SelectItem(
468        $self->current_imageviewer_index
469    ) if $self->imageviewer->GetItemCount;
470   
471    $self;
472}
473
474
475sub _initImgTypes {
476    my ( $self ) = @_;
477
478    $self->{IMGTYPE} = {
479             'jpg' => wxBITMAP_TYPE_JPEG,
480             'gif' => wxBITMAP_TYPE_GIF,
481             'png' => wxBITMAP_TYPE_PNG,
482    };
483}
484
485
486sub GetWxBitmapType {
487    my ( $self, $type ) = @_;
488   
489    $self->{IMGTYPE}->{$type};
490}
491
492
493
494sub _set_setting_properties {
495    my ( $self ) = @_;
496
497    $self->piwigo_properties(
498        [
499            {
500                label => gettext("Photo caption :"),
501                value => sub { $self->imagelist->current_image->site_name(@_) },
502            },
503            {
504                label => gettext("Comment :"),
505                value => sub { $self->imagelist->current_image->site_comment(@_) },
506                type  => "LongText",
507            },
508            {
509                label => gettext("Author :"),
510                value => sub { $self->imagelist->current_image->site_author(@_) },
511            },
512            {
513                label    => gettext("File name :"),
514                value    => sub { $self->imagelist->current_image->file(@_) },
515                readonly => 1,
516            },
517            {
518                label    => gettext("Create date :"),
519                value    => sub { $self->imagelist->current_image->create_date(@_) },
520                readonly => 1,
521            },
522        ]   
523    );
524
525    $self->exif_properties(
526        [
527            {
528                label    => gettext("Create date :"),
529                value    => sub { $self->imagelist->current_image->create_date }, 
530                readonly => 1,
531            }, 
532            {
533                label    => gettext("Model :"),
534                value    => sub { $self->imagelist->current_image->exif_tag('Model') }, 
535                readonly => 1,
536            }, 
537            {
538                label    => gettext("Width :"),
539                value    => sub { $self->imagelist->current_image->exif_tag('ImageWidth') }, 
540                readonly => 1,
541            }, 
542            {
543                label    => gettext("Height :"),
544                value    => sub { $self->imagelist->current_image->exif_tag('ImageHeight') }, 
545                readonly => 1,
546            }, 
547            {
548                label    => gettext("Orientation :"),
549                value    => sub { $self->imagelist->current_image->exif_tag('Orientation') }, 
550                readonly => 1,
551            }, 
552            {
553                label    => "ISO :",
554                value    => sub { $self->imagelist->current_image->exif_tag('ISO') }, 
555                readonly => 1,
556            }, 
557            {
558                label    => gettext("Shutter speed :"),
559                value    => sub { $self->imagelist->current_image->exif_tag('ExposureTime') }, 
560                readonly => 1,
561            }, 
562            {
563                label    => gettext("Aperture :"),
564                value    => sub { $self->imagelist->current_image->exif_tag('ApertureValue') }, 
565                readonly => 1,
566            }, 
567            {
568                label    => gettext("Focal length :"),
569                value    => sub { $self->imagelist->current_image->exif_tag('FocalLength') }, 
570                readonly => 1,
571            }, 
572            {
573                label    => gettext("Lens :"),
574                value    => sub { $self->imagelist->current_image->exif_tag('Lens') }, 
575                readonly => 1,
576            }, 
577        ]
578    );   
579
580    $self->general_settings(
581        [
582            {
583                label     => gettext("Default author :"),
584                value   => sub { $self->imagelist->author(@_) },
585            },
586            {
587                label     => gettext("Default photo caption :"),
588                type      => 'Choice',
589                value   => sub { $self->imagelist->default_photo_name(@_) },
590                choice  => [
591                                  gettext('None'),
592                                  gettext('File name'),
593                                  gettext('File path and name'),
594                                  gettext('Prefix'),
595                                  gettext('Prefix + rank number'),
596                                  gettext('Rank number + prefix'),
597                                  gettext('Prefix + create date chrono'),
598                                  gettext('Create date chrono + prefix'),
599                              ],
600            },
601            {
602                label     => gettext("Photo caption  prefix :"),
603                value   => sub { $self->imagelist->default_name_prefix(@_) },
604            },
605            {
606                label     => gettext("Resize site image :"),
607                type      => 'Bool',
608                value   => sub { $self->imagelist->create_resized(@_) },
609            },
610            {
611                label     => gettext("Auto rotate image :"),
612                type      => 'Bool',
613                value   => sub { $self->imagelist->auto_rotate(@_) },
614            },
615            {
616                label     => gettext("Upload high (original size) :"),
617                type      => 'Bool',
618                value   => sub { $self->imagelist->upload_high(@_) },
619            },
620#            {
621#                label     => gettext("Remove uploaded photo from selection :"),
622#                type      => 'Bool',
623#                value  => sub { $self->imagelist->remove_uploaded_from_selection(@_) },
624#            },
625        ]   
626    );
627   
628    $self->resized_settings(
629        [
630            {
631                label     => gettext("Site image width :"),
632                type      => 'Number',
633                value   => sub { $self->imagelist->resize_w(@_) },
634            },
635            {
636                label     => gettext("Site image height :"),
637                type      => 'Number',
638                value   => sub { $self->imagelist->resize_h(@_) },
639            },
640            {
641                label     => gettext("Site image jpeg quality :"),
642                type      => 'Number',
643                value   => sub { $self->imagelist->quality(@_) },
644            },
645            {
646                label     => gettext("Site image filter :"),
647                type      => 'Choice',
648                value   => sub { $self->imagelist->filter(@_) },
649                choice    => [ qw/Point Box Triangle Hermite Hanning Hamming Blackman Gaussian Quadratic Cubic Catrom Mitchell Lanczos Bessel Sinc/ ],
650            },
651            {
652                label     => gettext("Site image blur :"),
653                type      => 'Number',
654                value   => sub { $self->imagelist->blur(@_) },
655            },
656            {
657                label     => gettext("Site image interlace :"),
658                type      => 'Choice',
659                value   => sub { $self->imagelist->interlace(@_) },
660                choice    => [ qw/None Line Plane Partition JPEG GIF PNG/ ],
661            },
662        ]   
663    );
664
665    $self->thumbnail_settings(
666        [
667            {
668                label     => gettext("Site thumbnail size :"),
669                type      => 'Number',
670                value   => sub { $self->imagelist->thumb_size(@_) },
671            },
672            {
673                label     => gettext("Site thumbnail jpeg quality :"),
674                type      => 'Number',
675                value   => sub { $self->imagelist->th_quality(@_) },
676            },
677            {
678                label     => gettext("Photo selection thumbnail size :"),
679                type      => 'Number',
680                value   => sub { $self->imagelist->wx_thumb_size(@_) },
681            },
682            {
683                label     => gettext("Photo selection thumbnail jpeg quality :"),
684                type      => 'Number',
685                value   => sub { $self->imagelist->wx_quality(@_) },
686            },
687        ]   
688    );
689   
690    $self->preview_settings(
691        [
692            {
693                label     => gettext("Use exif preview when available :"),
694                type      => 'Bool',
695                value   => sub { $self->imagelist->use_exif_preview(@_) },
696            },
697            {
698                label     => gettext("Custom preview ratio :"),
699                type      => 'Number',
700                value   => sub { $self->imagelist->preview_ratio(@_) },
701            },
702        ]   
703    );
704       
705}
706
707sub _refreshFrame {
708    my ( $self ) = @_;
709   
710    $self->_set_setting_properties;
711    $self->_refresh_settings_panels_properties;
712    map {
713        $_->Refresh;   
714    }
715    (
716        $self->image_prop_piwigo,
717        $self->image_prop_exif,
718        $self->general_settings_panel,
719        $self->resized_settings_panel,
720        $self->thumbnail_settings_panel,
721        $self->preview_settings_panel,
722    );
723   
724    $self->manager->Update;
725}
726
727
728sub _destroy_settings_panels {
729    my ( $self ) = @_;
730
731
732
733    map {
734        $self->manager->DetachPane(
735            $_
736        );
737        $_->Show(0);
738        $_->Destroy;
739    }(
740        $self->notebook_global_settings,
741        $self->notebook_image_properties,
742    );
743}
744
745#
746sub _initFrame {
747    my ( $self ) = @_;
748   
749 
750    $self->init_panels;
751
752    $self->init_aui;
753    $self->init_dnd_targets;
754
755    if( $self->imagelist->wx_thumb_imglist->GetImageCount){
756        printf("%s images\n", $self->imagelist->wx_thumb_imglist->GetImageCount); 
757        $self->ShowImageViewer;
758       
759        $self->imageviewer->Refresh(
760            $self->imagelist->wx_thumb_imglist
761        );
762       
763    }
764
765}
766
767sub _refresh_settings_panels_properties {
768    my ( $self ) = @_; 
769
770    $self->image_prop_piwigo->properties(
771        $self->piwigo_properties
772    );
773   
774    $self->image_prop_exif->properties(
775        $self->exif_properties
776    );
777
778
779    $self->general_settings_panel->properties(
780        $self->general_settings
781    );   
782
783    $self->resized_settings_panel->properties(
784        $self->resized_settings
785    );   
786
787    $self->thumbnail_settings_panel->properties(
788        $self->thumbnail_settings,
789    );   
790
791    $self->preview_settings_panel->properties(
792        $self->preview_settings,
793    );   
794       
795}
796
797sub _init_settings_panels {
798    my ( $self ) = @_; 
799
800    $self->image_prop_piwigo(
801        Uploader::GUI::wxPropertyGridPanel->new( 
802            { 
803                parentwnd       => $self,
804                properties      => $self->piwigo_properties,
805                frame_callbacks => [ 
806                                          sub {
807                                              $self->imageviewer->Refresh();
808                                          },
809                                   ],
810            }
811        )
812    );
813
814    $self->image_prop_exif(
815        Uploader::GUI::wxPropertyGridPanel->new( 
816            { 
817                parentwnd       => $self,
818                frame_callbacks => [],
819                properties      => $self->exif_properties,
820            }
821        )
822    );
823
824
825    $self->general_settings_panel(
826        Uploader::GUI::wxPropertyGridPanel->new( 
827            { 
828                parentwnd       => $self,
829                properties      => $self->general_settings,
830                frame_callbacks => [], 
831            }
832        )
833    );   
834
835    $self->resized_settings_panel(
836        Uploader::GUI::wxPropertyGridPanel->new( 
837            { 
838                parentwnd       => $self,
839                properties      => $self->resized_settings,
840                frame_callbacks => [],
841
842            }
843        )   
844    );   
845
846    $self->thumbnail_settings_panel(
847        Uploader::GUI::wxPropertyGridPanel->new( 
848            { 
849                parentwnd       => $self,
850                properties      => $self->thumbnail_settings,
851                frame_callbacks => [],
852
853            }
854        )   
855    );   
856    $self->preview_settings_panel(
857        Uploader::GUI::wxPropertyGridPanel->new( 
858            { 
859                parentwnd       => $self,
860                properties      => $self->preview_settings,
861                frame_callbacks => [],
862
863            }
864        )   
865    );   
866   
867    $self->general_settings_panel->Show(0);
868
869    $self->image_preview(
870        Uploader::GUI::wxImagePreview->new(
871            $self,
872            -1,
873            wxNullBitmap,
874            wxDefaultPosition,
875            [$self->preview_w, $self->preview_h]
876        )
877    );
878
879
880    $self->image_prop_piwigo->Show(0);
881   
882    $self->image_prop_exif->Show(0);
883       
884}
885
886sub init_panels {
887    my ( $self ) = @_; 
888
889    my $file = sprintf(
890        "../locale/%s/gs.html",
891        wxTheApp->locale->GetCanonicalName
892    );
893
894    $self->htmlhome(
895        Uploader::GUI::wxHtmlWindow->new(
896            $self, -1, [-1, -1], [450, 450]
897        )
898    );
899   
900    $self->htmlhome->LoadPage($file) if -e $file ;
901   
902    $self->htmlhome->InitHrefCallbacks(
903        {
904            new_album => sub {$self->OnAddCategories(@_) },
905            add_photos => sub { $self->OnAddImages(@_) },
906            upload_photos => sub { $self->ProcessImageSelection(@_)},   
907        }
908    );
909   
910    $self->imageviewer(
911        Uploader::GUI::wxImageListCtrl->new( 
912            { 
913                parentwnd => $self,
914                imagelist => $self->imagelist,
915            }
916        )
917    );
918   
919    $self->_init_settings_panels;       
920}
921
922sub init_dnd_targets {
923    my ( $self ) = @_; 
924
925    $self->imageviewer->SetDropTarget( 
926        DNDImageListDropTarget->new(
927            $self->imageviewer
928        ) 
929    );
930    #$self->htmlhome->SetDropTarget(
931    #    DNDImageListDropTarget->new(
932    #        $self->imageviewer
933    #    )
934    #);
935
936
937    $self->tree->SetDropTarget( 
938        DNDCategoryTreeDropTarget->new(
939            $self->tree
940        )
941    );
942       
943}
944
945sub init_aui {
946    my ( $self ) = @_;
947
948    my $url = wxTheApp->site_url;
949   
950    $url = gettext("empty - work Offline") if wxTheApp->use_offline;
951
952    $self->manager->AddPane
953      ( $self->create_notebook_imagelist, Wx::AuiPaneInfo->new->Name( "ImageViewer" )
954        ->CenterPane->Position(1)->Resizable->CloseButton(0) );
955
956    $self->manager->AddPane
957      ( $self->create_tree, Wx::AuiPaneInfo->new->Name( "categories" )
958        ->Right->Position( 0 )->Resizable->CloseButton(0) );
959
960
961
962    $self->_init_aui_settings_panels;
963
964    $self->toolbar(
965        $self->create_toolbar
966    );
967
968    $self->manager->AddPane
969      ( $self->toolbar, Wx::AuiPaneInfo->new->Name( "tb1" )
970        ->ToolbarPane->Top->Row( 1 )->LeftDockable( 0 )->RightDockable( 0 ) ) if defined $self->toolbar;
971
972    if($self->perspective){
973        $self->manager->LoadPerspective($self->perspective) if $self->perspective =~ /getting_started/;
974    }
975
976    $self->manager->GetPane("categories")->Caption(
977          sprintf("%s - %s", sprintf("Piwigo %s", wxTheApp->branding->{categories}), $url )
978      );
979
980    $self->manager->GetPane("preview")->Caption(gettext("Preview"));
981    $self->manager->GetPane("tb1")->Caption( gettext("Tools") );
982    $self->manager->GetPane("photo_properties")->Caption(gettext("Photo properties"));
983    $self->manager->GetPane("global_settings")->Caption(gettext("Global settings"));
984    $self->manager->GetPane("getting_started")->Caption(gettext("Getting started"));
985
986   
987    $self->manager->Update;
988
989}
990
991sub _init_aui_settings_panels {
992    my ( $self ) = @_; 
993
994    $self->manager->AddPane
995      ( $self->image_preview, Wx::AuiPaneInfo->new->Name( "preview" )
996        ->Floatable(1)->Fixed->CloseButton(1));
997
998
999    $self->manager->AddPane
1000      ( $self->htmlhome, Wx::AuiPaneInfo->new->Name( "getting_started" )
1001       ->Floatable(1)->Resizable->CloseButton(1) );
1002
1003
1004    $self->manager->AddPane
1005      ( $self->create_notebook_image_properties, Wx::AuiPaneInfo->new->Name( "photo_properties" )
1006        ->Floatable(1)->Resizable->CloseButton(1) );
1007
1008    $self->manager->AddPane
1009      ( $self->create_notebook_global_settings, Wx::AuiPaneInfo->new->Name( "global_settings" )
1010        ->Floatable(1)->Resizable->CloseButton(1) );
1011
1012    $self->manager->GetPane("preview")->Show(0);
1013    $self->manager->GetPane("photo_properties")->Show(0);
1014    $self->manager->GetPane("global_settings")->Show(0);
1015    $self->manager->GetPane("getting_started")->Float;
1016    $self->manager->GetPane("getting_started")->Show(1);
1017       
1018}
1019
1020sub OnPhotoProperties {
1021    my ( $self ) = @_;
1022
1023    $self->manager->GetPane("photo_properties")->Show(1);
1024    $self->manager->Update();   
1025       
1026}
1027
1028sub OnPreview {
1029    my ( $self ) = @_;
1030
1031    $self->manager->GetPane("preview")->Float->Show(1);
1032    $self->manager->Update();   
1033       
1034}
1035
1036sub OnGettingStarted {
1037    my ( $self ) = @_;
1038
1039    $self->toolbar->EnableTool(100, 0 );
1040    $self->manager->GetPane("getting_started")->Float->Show(1);
1041    $self->manager->Update();   
1042       
1043}
1044
1045sub OnGlobalSettings {
1046    my ( $self ) = @_;
1047
1048    $self->toolbar->EnableTool(104, 0 );
1049    $self->manager->GetPane("global_settings")->Float->Show(1);
1050    $self->manager->Update();   
1051}
1052
1053sub OnChooseLanguage {
1054    my ( $self ) = @_; 
1055
1056  my $languages = [
1057             ['Dutch', wxLANGUAGE_DUTCH, ],   
1058             ['English', wxLANGUAGE_ENGLISH, ],   
1059             ['French', wxLANGUAGE_FRENCH, ],   
1060             ['German', wxLANGUAGE_GERMAN, ],   
1061             ['Italian', wxLANGUAGE_ITALIAN, ],   
1062             ['Polish', wxLANGUAGE_POLISH, ],   
1063             ['Portuguese', wxLANGUAGE_PORTUGUESE, ],   
1064             ['Russian', wxLANGUAGE_RUSSIAN, ],   
1065             ['Spanish', wxLANGUAGE_SPANISH, ],   
1066  ];
1067
1068  my $dialog = new Wx::SingleChoiceDialog
1069    ( undef, gettext( "Choose a language" ), gettext( "Choose a language" ),
1070      [ map { Wx::GetTranslation( ${$_}[0] ) } @$languages ] );
1071
1072  if( $dialog->ShowModal() == wxID_OK ) {
1073    wxTheApp->current_language(
1074        $languages->[$dialog->GetSelection][1]
1075    );
1076    wxTheApp->init_locale();
1077    $self->_refreshFrame;
1078  }
1079
1080  $dialog->Destroy;
1081
1082}
1083
1084
1085sub create_notebook_imagelist {
1086    my( $self ) = @_;
1087    my $book = Wx::AuiNotebook->new( $self, -1, [-1, -1], [300, 450],
1088                                     wxBORDER_NONE|wxAUI_NB_TAB_MOVE|wxAUI_NB_TAB_SPLIT);
1089
1090        my $imglistpage = [
1091            [
1092                $self->imageviewer, 
1093                gettext("Photo selection"),
1094                '../res/images.png', 
1095                wxBITMAP_TYPE_PNG,
1096            ],
1097        ];
1098
1099    $self->notebook($book);
1100    $self->_populate_notebook($self->notebook, $imglistpage, 0);
1101    return $book;
1102}
1103
1104sub create_notebook_image_properties {
1105    my( $self ) = @_;
1106    my $book = Wx::AuiNotebook->new( $self, -1, [-1, -1], [450, 450],
1107                                     wxBORDER_NONE|wxAUI_NB_TAB_MOVE|wxAUI_NB_TAB_SPLIT);
1108    my $pages = [   
1109        [
1110            $self->image_prop_piwigo, 
1111            "Piwigo",
1112        ],
1113        [
1114            $self->image_prop_exif, 
1115            "Exif",
1116        ],
1117    ];
1118   
1119    $self->_populate_notebook( $book, $pages );
1120
1121    $self->notebook_image_properties($book);
1122
1123    return $book;
1124}
1125
1126sub create_notebook_global_settings {
1127    my( $self ) = @_;
1128    my $book = Wx::AuiNotebook->new( $self, -1, [-1, -1], [450, 450],
1129                                     wxBORDER_NONE|wxAUI_NB_TAB_MOVE|wxAUI_NB_TAB_SPLIT);
1130    my $pages = [   
1131        [
1132            $self->general_settings_panel, 
1133            gettext("General"),
1134        ],
1135        [
1136            $self->resized_settings_panel, 
1137            gettext("Resized"),
1138        ],
1139        [
1140            $self->thumbnail_settings_panel, 
1141            gettext("Thumbnail"),
1142        ],
1143        [
1144            $self->preview_settings_panel, 
1145            gettext("Preview"),
1146        ],
1147    ];
1148   
1149    $self->_populate_notebook( $book, $pages );
1150
1151    $self->notebook_global_settings($book);
1152
1153    return $book;
1154}
1155
1156
1157
1158
1159sub create_tree {
1160    my ( $self ) = @_;
1161
1162    my $images = [
1163        map {
1164            Wx::Bitmap->new( $_, wxBITMAP_TYPE_PNG )
1165               
1166        }
1167        (
1168          '../res/tree_pwg.png',
1169          '../res/tree_folder.png',
1170        )   
1171    ];
1172
1173    $self->treeimglist( Wx::ImageList->new( 16, 16, 1 ) );
1174    map {
1175        $self->treeimglist->Add($_);
1176    }
1177    @$images;
1178
1179   
1180    $self->tree( 
1181        Wx::TreeCtrl->new( 
1182           $self, 
1183           -1, 
1184           wxDefaultPosition, 
1185           wxDefaultSize, 
1186           wxBORDER_NONE|
1187           wxCLIP_CHILDREN|
1188#           wxTR_MULTIPLE|
1189#           wxTR_EXTENDED|
1190           wxTR_HAS_BUTTONS
1191#           wxTR_HIDE_ROOT   
1192        ) 
1193    );
1194
1195    $self->tree->SetImageList( $self->treeimglist );
1196    $self->populate_tree_categories if !wxTheApp->use_offline;
1197    $self->tree ;
1198}
1199
1200
1201sub populate_tree_categories {
1202    my ( $self ) = @_;
1203
1204    $self->populate_tree(
1205        $self->tree,
1206        wxTheApp->pwg->categories,
1207    ) if defined wxTheApp->pwg ;
1208   
1209    #$self->tree->ExpandAll;
1210
1211}
1212
1213
1214# returns a valid itemData
1215sub itemData { Wx::TreeItemData->new( $_[0] ) }
1216
1217sub populate_tree {
1218    my ( $self, $tree, $tree_items ) = @_;
1219    my $root = shift @{$tree_items};
1220    $self->tree_root(
1221        $tree->AddRoot( 
1222            $root->[0], 
1223            $root->[3], 
1224            $root->[4], 
1225            itemData( $root->[2] ) 
1226        )
1227    );
1228
1229  $self->populate_tree_helper( $tree, $self->tree_root, $tree_items );
1230
1231  $tree->Expand( $self->tree_root );
1232}
1233
1234sub populate_tree_helper {
1235  my ( $self, $tree, $parent_id, $tree_items ) = @_;
1236
1237  my $id;
1238
1239  map {
1240      my $name = $_->[0];
1241      eval {
1242        $name = is_utf8($name) ?  decode('UTF-8', $name) : $name;
1243      };
1244      if($@){
1245          $name = $_->[0];
1246      }
1247
1248      $id = $tree->AppendItem( 
1249                                   $parent_id, 
1250                                   $name,
1251                                   defined($_->[3]) ? $_->[3] : 0, 
1252                                   defined($_->[4]) ? $_->[4] : 0, 
1253                                   itemData( $_->[2]) 
1254                              );
1255      $self->tree_item_default($id) if ! defined $self->tree_item_default;
1256      # current item has children
1257      if( ref( $_->[1] ) eq 'ARRAY' ) {
1258          $self->populate_tree_helper( $tree, $id, $_->[1] );
1259      } 
1260  }
1261  @{$tree_items};
1262
1263}
1264
1265
1266
1267
1268sub _populate_notebook {
1269    my ( $self, $book, $pages, $position ) = @_;       
1270
1271    my $i = 0;
1272    map {
1273        my $icon = Wx::Icon->new();
1274        eval { $icon->LoadFile($_->[2], $_->[3]) ; }
1275            if defined $_->[2];
1276        my $nb_icon = Wx::Bitmap->new( $icon );
1277        defined $position ?
1278            $book->InsertPage($position, $_->[0],
1279                    $_->[1], 1, $nb_icon )
1280                          :
1281            $book->AddPage($_->[0],
1282                    $_->[1], 0, $nb_icon );
1283
1284        $i++;
1285    } @$pages;
1286
1287}
1288
1289
1290sub _initMenus {
1291    my ( $self ) = @_ ;
1292
1293    $self->_tree_mnu;
1294    $self->_imageviewer_mnu;   
1295}
1296
1297
1298sub _tree_mnu {
1299    my ( $self ) = @_; 
1300
1301    my $ctx_mnu = Wx::Menu->new;
1302   
1303    map {
1304        $ctx_mnu->Append(
1305            @$_[0..2], wxITEM_NORMAL
1306        )->SetBitmap(Wx::Bitmap->new($_->[3],wxBITMAP_TYPE_PNG));
1307    }
1308    (
1309        # workaround : first item does not show bitmap
1310        [
1311            0, 
1312            "",
1313            "",
1314            '../res/mnu_folder_new.png',
1315        ],
1316        [
1317            1+$ID_TREE_CTX_MENU, 
1318            wxTheApp->branding->{'Add new category'},
1319            sprintf(
1320                "%s %s %s %s", 
1321                gettext("Add a new"), 
1322                wxTheApp->branding->{category},
1323                gettext("to the currently selected"),
1324                wxTheApp->branding->{category},
1325            ),
1326            '../res/mnu_folder_new.png',
1327        ],
1328        [
1329            2+$ID_TREE_CTX_MENU, 
1330            gettext("Refresh"),
1331            sprintf(
1332                "Refresh %s list.",
1333                wxTheApp->branding->{category},
1334            ),
1335            '../res/mnu_refresh.png',
1336        ],
1337        [
1338            3+$ID_TREE_CTX_MENU, 
1339            gettext("Expand all"),
1340            sprintf(
1341                "Expand %s list.",
1342                wxTheApp->branding->{category},
1343            ),
1344            '../res/mnu_expandall.png',
1345        ],
1346        [
1347            4+$ID_TREE_CTX_MENU, 
1348            gettext("Collapse all"),
1349            sprintf(
1350                "Collapse %s list.",
1351                wxTheApp->branding->{category},
1352            ),
1353            '../res/mnu_collapseall.png',
1354        ],
1355    );
1356
1357    $ctx_mnu->Delete(0);
1358    $self->tree_mnu(
1359         $ctx_mnu
1360    ); 
1361}       
1362
1363sub _imageviewer_mnu {
1364    my ( $self ) = @_; 
1365
1366    my $ctx_mnu = Wx::Menu->new;
1367   
1368    map {
1369        $ctx_mnu->Append(
1370            @$_[0..2]
1371        )->SetBitmap(Wx::Bitmap->new($_->[3],wxBITMAP_TYPE_PNG));
1372    }
1373    (
1374        # workaround : first item does not show bitmap
1375        [
1376            0, 
1377            "",
1378            "",
1379            '../res/mnu_properties.png',
1380        ],
1381        [
1382            1+$ID_IMAGEVIEWER_CTX_MENU, 
1383            gettext("Properties"),
1384            gettext("Modify photo properties"),
1385            '../res/mnu_properties.png',
1386        ],
1387        [
1388            2+$ID_IMAGEVIEWER_CTX_MENU, 
1389            gettext("Preview"),
1390            gettext("Display photo preview"),
1391            '../res/mnu_preview.png',
1392        ],
1393    );
1394       
1395    $ctx_mnu->Delete(0);
1396    $self->imageviewer_mnu(
1397         $ctx_mnu
1398    ); 
1399}
1400
1401sub _initEventHandlers {
1402    my ( $self ) = @_ ;
1403       
1404    Wx::Event::EVT_MENU( $self, 100, \&OnGettingStarted );
1405    Wx::Event::EVT_MENU( $self, 101, \&OnAddImages );
1406    Wx::Event::EVT_MENU( $self, 102, \&OnRemoveImages );
1407    Wx::Event::EVT_MENU( $self, 103, \&OnUploadImages );
1408    Wx::Event::EVT_MENU( $self, 104, \&OnGlobalSettings );
1409    Wx::Event::EVT_MENU( $self, 105, \&OnChooseLanguage );
1410    EVT_TREE_SEL_CHANGED( $self, $self->tree, \&OnTreeSelChanged );
1411    EVT_TREE_ITEM_RIGHT_CLICK( $self, $self->tree, \&OnTreeItemRightClick );
1412
1413    EVT_LIST_END_LABEL_EDIT( $self, $self->imageviewer, \&OnImageViewerEndLabelEdit );
1414    EVT_LIST_ITEM_ACTIVATED( $self, $self->imageviewer, \&OnImageViewerItemActivated );
1415    EVT_LIST_ITEM_SELECTED($self, $self->imageviewer, \&OnImageViewerItemSelected) ;
1416    EVT_LIST_ITEM_RIGHT_CLICK($self, $self->imageviewer, \&OnImageViewerItemRightClick) ;
1417
1418    EVT_LIST_KEY_DOWN($self, $self->imageviewer, \&OnImageViewerKeyDown) ;
1419
1420    EVT_CLOSE( $self, \&OnClose );
1421    Wx::Event::EVT_UPDATE_UI( $self, $self, \&OnUpdateUI );
1422
1423
1424    Wx::Event::EVT_MENU( $self, 1+$ID_TREE_CTX_MENU, \&OnAddCategories );
1425    Wx::Event::EVT_MENU( $self, 2+$ID_TREE_CTX_MENU, \&OnRefreshCategories );
1426    Wx::Event::EVT_MENU( $self, 3+$ID_TREE_CTX_MENU, \&OnExpandCategories );
1427    Wx::Event::EVT_MENU( $self, 4+$ID_TREE_CTX_MENU, \&OnCollapseCategories );
1428
1429    Wx::Event::EVT_MENU( $self, 1+$ID_IMAGEVIEWER_CTX_MENU, \&OnPhotoProperties );
1430    Wx::Event::EVT_MENU( $self, 2+$ID_IMAGEVIEWER_CTX_MENU, \&OnPreview );
1431
1432
1433}
1434
1435{
1436  my $prevdir;
1437  my $prevfile;
1438
1439  sub OnAddImages {
1440    my( $self, $event ) = @_;
1441    my $dialog = Wx::FileDialog->new
1442      ( $self, gettext("Select photos for upload"), $prevfile, $prevdir,
1443        sprintf("%s (*.jpg)|*.jpg|All(*.*)|*.*", gettext("JPEG files")),
1444        wxFD_OPEN|wxFD_MULTIPLE );
1445
1446    my $file_paths = [];
1447    if( $dialog->ShowModal != wxID_CANCEL ) {
1448        @$file_paths = $dialog->GetPaths;
1449        $self->SetNewFiles($file_paths) ;
1450    }
1451    $dialog->Destroy;
1452#    $event->Skip;
1453  }
1454}
1455
1456sub OnUpdateUI {
1457    my( $self, $event ) = @_;
1458   
1459    if( $self->manager ){
1460        if($self->manager->GetPane("global_settings")->IsShown){
1461            $self->toolbar->EnableTool(104, 0);                 
1462        }
1463        else{
1464            $self->toolbar->EnableTool(104, 1);                 
1465        }
1466        if($self->manager->GetPane("getting_started")->IsShown){
1467            $self->toolbar->EnableTool(100, 0);                 
1468        }
1469        else{
1470            $self->toolbar->EnableTool(100, 1);                 
1471        }
1472    }
1473
1474}
1475
1476sub OnRemoveImages {
1477    my( $self, $event ) = @_;
1478
1479   
1480    $self->imagelist->RemoveImageSelection;
1481    $self->imageviewer->Refresh;       
1482
1483    $self->image_preview->SetBitmap(
1484        wxNullBitmap
1485    ) if !$self->imageviewer->GetItemCount;
1486
1487}
1488
1489sub SetNewFiles {
1490    my ( $self, $file_paths ) = @_;
1491
1492    $self->ShowImageViewer();
1493    $self->progressdlg( 
1494        Uploader::GUI::wxImageProcessingProgressDlg->new(
1495            { 
1496                title => gettext("Image processing progress information"),
1497                bt_label => gettext("Cancel image processing"), 
1498             }
1499        )       
1500    );
1501    $self->progressdlg->Show(1);
1502    Wx::Yield();
1503   
1504    my $files = [
1505        map {
1506            encode('iso-8859-1', $_)
1507        }@$file_paths   
1508    ];
1509
1510    @$files = sort @$files;   
1511
1512    $self->imagelist->SetNewFiles(
1513        $files
1514    );
1515
1516   
1517}
1518
1519sub OnTreeSelChanged {
1520    my( $self, $event ) = @_;
1521 
1522    my @items = $self->tree->GetSelections;
1523
1524    $self->imagelist->categories(
1525        [
1526            map {
1527                my $category = $self->tree->GetPlData( $_ );
1528                $category->{id} if $category != -1;
1529            }
1530            @items
1531        ]
1532    );
1533}
1534
1535sub OnTreeItemRightClick {
1536    my( $self, $event ) = @_;
1537
1538
1539    $self->PopupMenu($self->tree_mnu, wxDefaultPosition);
1540       
1541}
1542
1543
1544sub OnImageViewerItemRightClick {
1545    my( $self, $event ) = @_;
1546
1547   
1548    $self->PopupMenu($self->imageviewer_mnu, wxDefaultPosition);
1549       
1550       
1551}
1552
1553sub OnExpandCategories {
1554    my ( $self, $event ) = @_;
1555
1556    my $parent_item = $self->tree->GetSelection;
1557    $self->tree->ExpandAllChildren($parent_item);
1558}
1559
1560sub OnCollapseCategories {
1561    my ( $self, $event ) = @_;
1562
1563    my $parent_item = $self->tree->GetSelection;
1564    $self->tree->CollapseAllChildren($parent_item);
1565}
1566
1567sub OnAddCategories {
1568    my ( $self, $event ) = @_;
1569
1570    my $parent_item = $self->tree->GetSelection;
1571
1572    my $category = $self->tree->GetPlData($parent_item);
1573    my $category_id;
1574   
1575    $category_id = $category->{id} if 'HASH' eq ref($category) ;
1576
1577    my $dialog = Wx::TextEntryDialog->new( 
1578        $self, 
1579        sprintf("%s name :", wxTheApp->branding->{Category}), 
1580        sprintf("Add new %s", wxTheApp->branding->{category}),
1581        sprintf("New %s", wxTheApp->branding->{category}), 
1582    );
1583
1584    if( $dialog->ShowModal != wxID_CANCEL ) {
1585        my $name = $dialog->GetValue;
1586        my ( $success, $status_msg, $content ) = $self->pwg->AddCategories( $name, $category_id);
1587
1588        if($success){
1589            $self->_append_category($parent_item, $name, $content->{id});
1590        }
1591    }
1592    $dialog->Destroy;
1593}
1594
1595sub OnRefreshCategories {
1596    my ( $self, $event ) = @_;
1597
1598    $self->_refresh_all_categories_helper;
1599}
1600
1601
1602sub _refresh_all_categories_helper {
1603    my ( $self ) = @_; 
1604
1605    my $busycursor = Wx::BusyCursor->new();
1606    $self->tree->CollapseAll;
1607    $self->tree->DeleteAllItems;
1608    $self->imagelist->categories([]);
1609    $self->pwg->RefreshCategories();
1610    $self->populate_tree_categories;
1611}
1612
1613sub _append_category {
1614    my ( $self, $parent_id, $name, $id ) = @_;
1615
1616    $self->tree->SelectItem(
1617        $self->tree->AppendItem(
1618            $parent_id, 
1619            $name, 
1620            1, 
1621            -1, 
1622            itemData($id)
1623        )
1624    );
1625}
1626
1627sub OnImageViewerEndLabelEdit {
1628    my( $self, $event ) = @_;
1629 
1630    my $image = $self->imagelist->GetImage($event->GetIndex);
1631    $image->site_name(
1632        $event->GetLabel
1633    );
1634       
1635    $self->image_prop_piwigo->Refresh;
1636}
1637
1638sub OnImageViewerItemActivated {
1639    my( $self, $event ) = @_;
1640   
1641    $self->current_imageviewer_index(
1642        $event->GetIndex
1643    );
1644
1645    $self->OnPhotoProperties;
1646}
1647
1648
1649sub OnImageViewerItemSelected {
1650    my( $self, $event ) = @_;
1651 
1652    my $indx = $event->GetIndex;
1653
1654    $self->_on_imageviewer_item_selected($indx);
1655
1656    $event->Skip;
1657}
1658
1659sub _on_imageviewer_item_selected {
1660    my ( $self, $index ) = @_; 
1661
1662    $self->current_imageviewer_index($index);
1663    $self->imagelist->SetCurrentImage($index);
1664   
1665    $self->imagelist->image_selection(
1666        $self->imageviewer->GetSelectedItems
1667    );
1668
1669    $self->_image_preview_refresh if @{$self->imagelist->image_selection} < 2;
1670   
1671    $self->manager->Update;
1672   
1673    $self->image_prop_piwigo->Refresh;
1674    $self->image_prop_exif->Refresh;
1675
1676}
1677
1678sub _image_preview_refresh {
1679    my ( $self ) = @_; 
1680
1681    $self->image_preview->SetBitmap(
1682        wxNullBitmap
1683    );
1684
1685    $self->image_preview->Refresh;
1686
1687    my $bmp = Wx::Bitmap->new( 
1688            $self->imagelist->current_image->preview_file, 
1689            $self->GetWxBitmapType($self->imagelist->type), 
1690        );
1691
1692       
1693    $self->image_preview->SetBitmap(
1694        $bmp
1695    );
1696
1697    my $size = [8+$bmp->GetWidth, 26+$bmp->GetHeight];
1698    $self->manager->GetPane("preview")->FloatingSize($size);
1699   
1700    $self->image_preview->Refresh;
1701}
1702
1703sub OnImageViewerKeyDown {
1704    my( $self, $event ) = @_;
1705
1706    if(WXK_DELETE == $event->GetKeyCode){
1707        $self->OnRemoveImages();
1708       
1709        my $index = $self->current_imageviewer_index < $self->imageviewer->GetItemCount ?
1710            $self->current_imageviewer_index : $self->imageviewer->GetItemCount -1 ;
1711        $self->imageviewer->SelectItem(
1712            $index
1713        );
1714    }   
1715
1716}
1717
1718sub OnUploadImages {
1719    my( $self, $event ) = @_;
1720
1721    eval {
1722        $self->ProcessImageSelection();   
1723    };
1724}
1725
1726# remove image from imagelist when uploaded
1727sub UploadImagesViewerRefresh {
1728    my ( $self ) = @_; 
1729
1730    my $imagelist= $self->imagelist ;
1731
1732    Wx::Yield();
1733}
1734
1735sub UploadProgressMessageRefresh {
1736    my ( $self, $msg ) = @_;   
1737
1738    $self->upload_progressdlg->processing(
1739        $msg   
1740    ); 
1741
1742    Wx::Yield();
1743}
1744
1745sub UploadProgressThumbnailRefresh {
1746    my ( $self ) = @_; 
1747
1748    my $imagelist = $self->imagelist ;
1749
1750 
1751    $self->upload_progressdlg->image->SetBitmap(wxNullBitmap);
1752    $self->upload_progressdlg->image->SetBitmap(
1753        Wx::Bitmap->new( 
1754            $self->imagelist->current_image->wx_thumb_file, 
1755            $self->GetWxBitmapType($self->imagelist->type), 
1756        )
1757    );
1758
1759    Wx::Yield();
1760}
1761
1762sub UploadProgressBarRefresh {
1763    my ( $self, $ratio ) = @_; 
1764
1765    $ratio = $self->imagelist->count > 1 ? 1 : $ratio; 
1766    eval {
1767        $self->upload_progressdlg->progress(
1768            $ratio*$self->imagelist->count * ( 100/scalar @{$self->imagelist->image_selection} )
1769        );
1770        $self->upload_progressdlg->LogProgress();
1771    };
1772    croak gettext("Upload cancelled") if $@;
1773
1774    Wx::Yield();
1775}
1776
1777sub SetNewFilesDisplayEndInfo {
1778    my ( $self, $msg ) = @_;   
1779       
1780    $self->progressdlg->DisplayEndInfo($msg);
1781}
1782
1783sub UploadDisplayEndInfo {
1784    my ( $self, $msg ) = @_;   
1785   
1786    my $imagelist = $self->imagelist ;
1787   
1788    $self->upload_progressdlg->DisplayEndInfo($msg);
1789}
1790
1791sub ShowImageViewer {
1792    my ( $self ) = @_; 
1793
1794    if(!$self->imageviewer->IsShown){
1795        #my $imglistpage = [
1796        #    [
1797        #        $self->imageviewer,
1798        #        gettext("Photo selection"),
1799        #        '../res/images.png',
1800        #        wxBITMAP_TYPE_PNG,
1801        #    ],
1802        #];
1803        #$self->notebook->DeletePage(0);
1804   
1805        $self->imageviewer->Show(1);
1806        #$self->_populate_notebook($self->notebook, $imglistpage, 0);
1807        # load imagelist with loading.jpg
1808    }
1809       
1810}
1811
1812
1813sub ActivateImageViewer {
1814    my ( $self ) = @_; 
1815       
1816}
1817
1818
1819sub SetNewFilesViewerRefresh {
1820
1821    my ( $self ) = @_; 
1822
1823    my $wximagelist = $self->imagelist->wx_thumb_imglist;
1824
1825    my $indx = $wximagelist->Add(
1826        Wx::Bitmap->new( 
1827            $self->imagelist->current_image->wx_thumb_file, 
1828            $self->GetWxBitmapType($self->imagelist->type), 
1829        )
1830    ) if defined $self->imagelist->current_image->wx_thumb_file;
1831    print $self->imagelist->current_image->wx_thumb_file, " added with index ", $indx, "\n";   
1832    $self->imageviewer->Refresh(
1833        $wximagelist
1834    );
1835
1836    Wx::Yield();
1837}
1838
1839
1840
1841# prepare and upload image_selection
1842sub ProcessImageSelection {
1843    my ( $self ) = @_;
1844
1845    return if !scalar @{$self->imagelist->sums};
1846
1847    if( scalar @{$self->imagelist->categories} ){
1848        # all selected is implicit
1849        if(!scalar @{$self->imageviewer->GetSelectedItems}){
1850       
1851            $self->imagelist->image_selection(
1852                $self->imageviewer->GetAllItems
1853            );
1854        }
1855       
1856        return if( !defined $self->imagelist->image_selection );
1857        return if( !scalar @{$self->imagelist->image_selection} );
1858       
1859        $self->upload_progressdlg(
1860            Uploader::GUI::wxImageProcessingProgressDlg->new(
1861                { 
1862                    title    => gettext("Image upload progress information"),
1863                    bt_label => gettext("Cancel upload"), 
1864                 }
1865            )       
1866        );
1867        # modeless dialog
1868        $self->upload_progressdlg->Show(1);
1869        Wx::Yield();
1870        eval {
1871            $self->imagelist->UploadSelection;
1872        };
1873        if($@){
1874            Wx::MessageBox( 
1875                sprintf(
1876                    gettext("Upload cancelled"),
1877                ),
1878                gettext("Piwigo upload information"),
1879                wxOK | wxICON_INFORMATION, 
1880            );
1881        }
1882    }
1883    else {
1884        Wx::MessageBox( 
1885            sprintf(
1886                "%s %s", 
1887                gettext("Please select a valid target"),
1888                wxTheApp->branding->{category}
1889            ),
1890            gettext("Piwigo upload error"),
1891            wxOK | wxICON_EXCLAMATION, 
1892        );
1893    }
1894}
1895
1896
1897sub SetNewFilesProgress {
1898    my ( $self ) = @_;
1899
1900    my $imagelist = $self->imagelist;
1901
1902    $self->progressdlg->processing(
1903        sprintf(
1904            $imagelist->progress_msg, 
1905            $imagelist->current_image->file,
1906        )
1907    );
1908
1909    eval {
1910        $self->progressdlg->image->SetSize([ $imagelist->wx_thumb_size, $imagelist->wx_thumb_size]);
1911        $self->progressdlg->image->SetBitmap(wxNullBitmap);
1912        $self->progressdlg->image->SetBitmap(
1913            Wx::Bitmap->new( 
1914                $imagelist->current_image->wx_thumb_file,
1915                $self->GetWxBitmapType( $imagelist->type )
1916            )
1917        );
1918        $self->progressdlg->progress(
1919            $imagelist->count * ( 100/scalar @{$imagelist->new_files} )
1920        );
1921        $self->progressdlg->LogProgress();
1922    };
1923    Wx::Yield();
1924}
1925
1926sub OnClose {
1927  my $self = shift;
1928
1929
1930    # Restaure previous log wnd
1931    Wx::Log::SetActiveTarget( $self->oldlogwnd );
1932
1933    # allways store
1934 
1935    wxTheApp->StoreConnectionProperties;
1936   
1937    $self->imagelist->Store;
1938    wxTheApp->login_dlg->Destroy;       
1939
1940    my $params = {};
1941
1942    ( $params->{'X'}, $params->{'Y'} ) = $self->GetPositionXY ;
1943    ( $params->{'Width'}, $params->{'Height'} ) = $self->GetSizeWH ;
1944    ( $params->{'PreviewWidth'}, $params->{'PreviewHeight'} ) = $self->image_preview->GetSizeWH ;
1945    $params->{Perspective} = $self->manager->SavePerspective;
1946    $params->{ImageviewerIndex} = $self->current_imageviewer_index;
1947   
1948
1949    wxTheApp->SaveConfig( $params );
1950
1951    $self->Destroy;
1952}
1953
1954
1955sub create_toolbar {
1956    my( $self ) = @_;
1957
1958    my $tb = Wx::ToolBar->new( $self, -1, wxDefaultPosition, wxDefaultSize, wxTB_FLAT );
1959    $tb->SetToolBitmapSize( wxSIZE( 32, 32 ) );
1960    map {
1961        my $icon1 = Wx::Icon->new();
1962        eval {
1963            $icon1->LoadFile($_->[2], $_->[3]);
1964        };
1965        my $tb_icon1 = Wx::Bitmap->new( $icon1 );
1966
1967        my $icon2 = Wx::Icon->new();
1968        eval {
1969            $icon2->LoadFile($_->[5], $_->[3]);
1970        };
1971        my $tb_icon2 = Wx::Bitmap->new( $icon2 );
1972
1973
1974        $tb->AddTool( $_->[0], $_->[1], $tb_icon1, $tb_icon2, wxITEM_NORMAL, $_->[1] );
1975        $tb->EnableTool( $_->[0], $_->[4]);
1976    }
1977    (
1978        [
1979            100, 
1980            gettext("Getting started"), 
1981            '../res/tb_getting_started.png', 
1982            wxBITMAP_TYPE_PNG, 
1983            1, 
1984            '../res/tb_getting_started.png', 
1985            gettext("Display getting started panel")
1986        ],
1987        [
1988            101, 
1989            gettext("Add photo to selection"), 
1990            '../res/tb_add.png', 
1991            wxBITMAP_TYPE_PNG, 
1992            1, 
1993            '../res/tb_add.png', 
1994            gettext("Add photo to selection for resizing and uploading")
1995        ],
1996        [
1997            102, 
1998            gettext("Remove photo from selection"), 
1999            '../res/tb_remove.png', 
2000            wxBITMAP_TYPE_PNG, 
2001            1, 
2002            '../res/tb_remove.png',
2003            gettext("Remove photo from selection. Files are not deleted ")
2004        ],
2005        [
2006            103, 
2007            gettext("Upload to Piwigo"), 
2008            '../res/tb_upload.png', 
2009            wxBITMAP_TYPE_PNG, 
2010            wxTheApp->use_offline ? 0 : 1, 
2011            '../res/tb_upload.png',
2012            gettext("Upload photos to Piwigo.")
2013        ],
2014        [
2015            104, 
2016            gettext("Global settings"), 
2017            '../res/tb_settings.png', 
2018            wxBITMAP_TYPE_PNG, 
2019            0, 
2020            '../res/tb_settings.png',
2021            gettext("Change global settings.")
2022        ],
2023        [
2024            105, 
2025            gettext("Language choice"), 
2026            '../res/tb_i18n.png', 
2027            wxBITMAP_TYPE_PNG, 
2028            1, 
2029            '../res/tb_i18n.png',
2030            gettext("Language choice")
2031        ],
2032   
2033    );
2034
2035    if($@){
2036        undef $tb;
2037    }
2038    else{
2039        $tb->Realize;
2040    }
2041
2042    return $tb;
2043}
2044
2045
2046sub _create_textctrl {
2047    my( $self, $parent, $text, $size ) = @_;
2048
2049    return Wx::TextCtrl->new( $parent, -1, $text, [0, 0], $size,
2050                              wxNO_BORDER | wxTE_MULTILINE | wxTE_READONLY  );
2051}
2052
2053sub create_textctrl {
2054    my( $self, $text, $size ) = @_;
2055
2056    return $self->_create_textctrl( $self, $text, $size );
2057}
2058
2059sub DESTROY {
2060    my( $self ) = @_;
2061
2062    $self->manager->UnInit;
2063}
2064
2065
2066
20671;
2068
2069
2070
2071
2072
2073package DNDImageListDropTarget;
2074use Wx qw/wxTheApp/;
2075use base qw(Wx::FileDropTarget Class::Accessor::Fast);
2076
2077__PACKAGE__->mk_accessors( 
2078    qw/
2079          imageviewer
2080      /
2081);
2082
2083sub new {
2084  my $class = shift;
2085  my $imageviewer = shift;
2086  my $self = $class->SUPER::new( @_ );
2087
2088  $self->imageviewer($imageviewer);
2089
2090  return $self;
2091}
2092
2093sub OnDropFiles {
2094  my( $self, $x, $y, $files ) = @_;
2095
2096  wxTheApp->frame->SetNewFiles($files) ;
2097}
2098
2099
2100
2101
21021;
2103
2104
2105package DNDCategoryTreeDropTarget;
2106
2107use base qw(Wx::TextDropTarget Class::Accessor::Fast);
2108use Data::Dumper;
2109use Wx qw/
2110              wxDragNone
2111              wxDragCopy
2112              wxDragMove
2113         /;
2114
2115__PACKAGE__->mk_accessors( 
2116    qw/
2117          tree
2118          frame
2119      /
2120);
2121
2122sub new {
2123  my ( $class, $tree ) = @_;
2124  my $self = $class->SUPER::new();
2125
2126  $self->tree($tree);
2127  $self->frame($tree->GetParent);
2128  return $self;
2129}
2130
2131
2132
2133sub OnDropText {
2134  my( $self, $x, $y, $textdata ) = @_;
2135
2136  # must be $VAR1 because $textdata is the result of Data::Dumper
2137  my $VAR1;
2138  eval $textdata;
2139  eval {
2140      if(scalar @$VAR1){
2141           my @items;
2142           if(scalar @items < 2) {
2143               my ($dropItem, $flag) = $self->tree->HitTest([$x, $y]);
2144                push @items, $dropItem;
2145           }
2146           else {
2147                @items = $self->tree->GetSelections;
2148           }
2149           
2150           # remove root item which is not a valid category
2151           @items = grep { $self->tree->GetPlData( $_ ) != -1 } @items;
2152           
2153           $self->frame->imagelist->categories(
2154               [
2155                   map {
2156                       $self->tree->GetPlData( $_ )->{id};
2157                   }
2158                   @items
2159               ]
2160           );
2161           
2162           $self->frame->imagelist->image_selection($VAR1);
2163           $self->frame->ProcessImageSelection ;
2164      } 
2165  };
2166}
2167
21681;
Note: See TracBrowser for help on using the repository browser.