source: extensions/pLoader/trunk/src/Uploader/GUI/wxPhotoProperties.pm @ 5041

# +-----------------------------------------------------------------------+
# | pLoader - a Perl photo uploader for Piwigo                            |
# +-----------------------------------------------------------------------+
# | Copyright(C) 2008-2010 Piwigo Team                  http://piwigo.org |
# +-----------------------------------------------------------------------+
# | This program is free software; you can redistribute it and/or modify  |
# | it under the terms of the GNU General Public License as published by  |
# | the Free Software Foundation                                          |
# |                                                                       |
# | This program is distributed in the hope that it will be useful, but   |
# | WITHOUT ANY WARRANTY; without even the implied warranty of            |
# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      |
# | General Public License for more details.                              |
# |                                                                       |
# | You should have received a copy of the GNU General Public License     |
# | along with this program; if not, write to the Free Software           |
# | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, |
# | USA.                                                                  |
# +-----------------------------------------------------------------------+
package Uploader::GUI::wxPhotoProperties;
use strict;
use Wx qw/
             wxDefaultSize
             wxDefaultPosition
             wxTAB_TRAVERSAL 
             wxID_CANCEL
             wxID_OK
             wxGREEN
         /;
use base qw/Wx::Panel Uploader::GUI::DlgCommon/;
use Wx::Event qw/
                    EVT_BUTTON
                    EVT_CLOSE
                /;

use Carp;

sub new {
    my ($this, $params) = @_;
    #on recupere le nom de la classe en fonction du type d'appel de la méthode.
    my $class = ref($this) || $this;


    my $self = $class->SUPER::new( $params->{parentwnd}, -1, wxDefaultPosition, [-1, -1], wxTAB_TRAVERSAL );
    # load controls
    eval {
        &main::PhotoPropertiesCategoriesTags($self, $params->{tags});

        $self->_initNotebook($params->{tags});


        $self->properties(
            $params->{properties}
        );

        $self->InitLabels();
        $self->InitChoices();
        $self->SetProperties();
        $self->InitHandler();
        $self->_initEventHandlers();

        if($@){
            Wx::LogMessage("Error during dialogbox initialization");
        }
    };


    $self;    
}



sub _initEventHandlers {
    my ( $self ) = @_;
    
    EVT_BUTTON( $self, $main::ID_REUPLOAD_OK, \&OnOK );
    EVT_CLOSE( $self, \&OnClose );
    
}


sub _initNotebook{
    my ( $self, $tags ) = @_;

    my $nb = $self->FindWindow(
        $main::PHOTO_PROPERTIES_NB
    );

    my( $page1 ) = Wx::Panel->new( $nb, -1 );
    &main::photo_properties_caption_comments( $page1, 0 );
    $nb->AddPage( $page1, "Photo informations" );

    my( $page2 ) = Wx::Panel->new( $nb, -1 );
    &main::photo_properties_tags( $page2, $tags );
    $nb->AddPage( $page2, "Tags" );

    $self->{notebook} = $nb;

}


sub OnOK {
    my ( $self, $event ) = @_;
    
    $self->_close;
}

sub OnClose {
    my ( $self, $event ) = @_;
        
        $self->_close;
}

sub _close {
    my ( $self ) = @_;

    $self->GetProperties();

    $self->Destroy;
}

1;