Changeset 4779 for extensions/pLoader
- Timestamp:
- Jan 28, 2010, 12:55:45 AM (14 years ago)
- Location:
- extensions/pLoader/trunk/src
- Files:
-
- 23 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/DlgCommon.pm
r4589 r4779 1 # +-----------------------------------------------------------------------+ 2 # | pLoader - a Perl photo uploader for Piwigo | 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008-2010 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 # +-----------------------------------------------------------------------+ 1 20 package Uploader::GUI::DlgCommon; 2 21 use strict; … … 23 42 'Wx::TextCtrl' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_TEXT( $ctrl, $ctrl, sub { $self->OnTextCtrl(@_) } ); }, 24 43 'Wx::Choice' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_CHOICE( $ctrl, $ctrl, sub { $self->OnChoice(@_) } ); }, 44 'Wx::RadioBox' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_RADIOBOX( $ctrl, $ctrl, sub { $self->OnRadioBox(@_) } ); }, 25 45 'Wx::CheckBox' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_CHECKBOX( $ctrl, $ctrl, sub { $self->OnCheckBox(@_) } ); }, 26 46 'Wx::DatePickerCtrl' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_DATE_CHANGED( $ctrl, $ctrl, sub { $self->OnDatePicker(@_) } ); }, … … 59 79 } 60 80 81 # what does happen when selection changes 82 61 83 62 84 # what does happen when the text changes … … 93 115 } 94 116 117 sub OnRadioBox { 118 my ( $self, $ctrl, $event ) = @_; 119 120 my $id = $ctrl->GetId; 121 122 # if a preprocess value is required 123 my $value = $event->GetSelection; 124 $value = $self->properties->{$id}->{pre_process}->( $value ) if exists 125 $self->properties->{$id}->{pre_process}; 126 # change the property value. use the index selection 127 $self->properties->{$id}->{selection}->( 128 $value 129 ) if exists $self->properties->{$id}->{selection}; 130 131 # exec the callback 132 $self->properties->{$id}->{frame_callback}->($self, $ctrl, $event) if exists 133 $self->properties->{$id}->{frame_callback}; 134 135 $event->Skip; 136 137 } 95 138 96 139 sub OnChoice { -
extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
r4772 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | … … 2062 2062 2063 2063 $self->tree($tree); 2064 # $self->frame($tree->GetParent);2065 2064 2066 2065 return $self; … … 2071 2070 sub OnDropText { 2072 2071 my( $self, $x, $y, $textdata ) = @_; 2073 print $textdata;2074 2072 2075 2073 # must be $VAR1 because $textdata is the result of Data::Dumper … … 2090 2088 @items = grep { $self->tree->GetPlData( $_ ) != -1 } @items; 2091 2089 2092 wxTheApp->frame->imagelist->categories(2093 [2094 map {2095 $self->tree->GetPlData( $_ )->{id};2096 }2097 @items2098 ]2099 );2090 wxTheApp->frame->imagelist->categories( 2091 [ 2092 map { 2093 $self->tree->GetPlData( $_ )->{id}; 2094 } 2095 @items 2096 ] 2097 ); 2100 2098 2101 2099 wxTheApp->frame->imagelist->image_selection($VAR1); -
extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm
r4763 r4779 1 # +-----------------------------------------------------------------------+1 # +-----------------------------------------------------------------------+ 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxChoiceFilteredPanel.pm
r4504 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxGlobalSettings.pm
r4754 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxHtmlWindow.pm
r4717 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxImageListCtrl.pm
r4718 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxImagePreview.pm
r4749 r4779 1 # +-----------------------------------------------------------------------+ 2 # | pLoader - a Perl photo uploader for Piwigo | 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008-2010 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 # +-----------------------------------------------------------------------+ 1 20 package Uploader::GUI::wxImagePreview; 2 21 use strict; -
extensions/pLoader/trunk/src/Uploader/GUI/wxImageProcessingProgressDlg.pm
r4765 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxImageReuploadDlg.pm
r4764 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxImageView.pm
r2597 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxLoginDlg.pm
r3232 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxPhotoProperties.pm
r4718 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxPropertyGridPanel.pm
r4718 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/GUI/wxPropertyListDlg.pm
r4766 r4779 1 # +-----------------------------------------------------------------------+ 2 # | pLoader - a Perl photo uploader for Piwigo | 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008-2010 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 # +-----------------------------------------------------------------------+ 1 20 package Uploader::GUI::wxPropertyListDlg; 2 21 use strict; -
extensions/pLoader/trunk/src/Uploader/Image.pm
r4477 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/ImageList.pm
r4764 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/Object.pm
r2597 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/Object2.pm
r2696 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/PWG.pm
r4268 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/PWG/Categories.pm
r3287 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm
r4764 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | -
extensions/pLoader/trunk/src/ploader.pl
r4718 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify |
Note: See TracChangeset
for help on using the changeset viewer.