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

Last change on this file since 4079 was 4079, checked in by ronosman, 15 years ago

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