source: extensions/pLoader/trunk/src/Uploader/GUI/DlgCommon.pm @ 4475

package Uploader::GUI::DlgCommon;
use strict;

use base qw/
               Class::Accessor::Fast
           /; 

__PACKAGE__->mk_accessors(     
    qw/
        properties
      /
);

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

        # to connect the right event handler to each control
        my $ctrl_handlers = {
            'Wx::TextCtrl' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_TEXT( $ctrl, $ctrl, sub { $self->OnTextCtrl(@_) } ); },
        };
        
        map {
        my $ctrl =$self->FindWindow($_);
        if(defined $ctrl){
                    $ctrl_handlers->{ ref $ctrl}->($ctrl) if exists $ctrl_handlers->{ ref $ctrl};
                }
    }
        keys %{$self->properties};
        

}

# what does happen when the text changes
sub OnTextCtrl {
    my ( $self, $ctrl, $event ) = @_;
        
        printf("OnTextCtrl %s, %s\n", $ctrl->GetId, $event->GetString);
    my $id = $ctrl->GetId;
    # change the property value
        $self->properties->{$id}->{value}->(
        $event->GetString
    ) if exists $self->properties->{$id}->{value};

    # exec the callback
    $self->properties->{$id}->{frame_callback}->() if exists
        $self->properties->{$id}->{frame_callback};     
        
}

my $change_value = {
    'Wx::TextCtrl' => sub { my ($ctrl, $value ) = @_; $ctrl->ChangeValue($value)},
    'Wx::CheckBox' => sub { my ($ctrl, $value ) = @_; $ctrl->SetValue($value)},
};      

sub SetProperties {
    my ( $self ) = @_;
        
        map {
        my $ctrl =$self->FindWindow($_);
        #printf("ctrl %s : %s\n", $_, $ctrl);           
        if(defined $ctrl){
                # checkbox, static text
            $change_value->{ref $ctrl}->(
                        $ctrl,
                $self->properties->{$_}->{value}->()
                    ) if exists $self->properties->{$_}->{value};
                    # only works for control with items
                    $ctrl->SetSelection(
                        $self->properties->{$_}->{selection}->()                        
                    ) if exists $self->properties->{$_}->{selection};
                }
    }
        keys %{$self->properties};
}

sub InitLabels {
    my ( $self ) = @_;
        
        map {
        my $ctrl =$self->FindWindow($_);
        #printf("ctrl %s : %s\n", $_, $ctrl);           
        if(defined $ctrl){
                # checkbox, static text
                    $ctrl->SetLabel(
               $self->properties->{$_}->{label}
                    ) if exists $self->properties->{$_}->{label};
                
            # radiobox
            my $labels =$self->properties->{$_}->{labels};
                    $labels||=[];
                    for(my $i=0; $i < scalar @$labels ; $i++){
                        $ctrl->SetItemLabel($i, $labels->[$i]);
                    }
                }
    }
        keys %{$self->properties};

}

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

        map {
        my $ctrl = $self->FindWindow($_);
        #printf("ctrl %s : %s\n", $_, $ctrl);           
        if(defined $ctrl){
                # checkbox, static text

        $self->properties->{$_}->{value}->(
            $ctrl->GetValue()
                ) if exists $self->properties->{$_}->{value};

        $self->properties->{$_}->{selection}->(
                    $ctrl->GetSelection()                       
                ) if exists $self->properties->{$_}->{selection};
                
                }
    }
        keys %{$self->properties};
}

1;