Changeset 4973


Ignore:
Timestamp:
Feb 27, 2010, 10:29:33 AM (14 years ago)
Author:
ronosman
Message:

Feature 1461 added : ability to specify photo file names in the command line.

Location:
extensions/pLoader/trunk/src
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm

    r4801 r4973  
    140140use Uploader::GUI::wxImageReuploadDlg;
    141141use Uploader::GUI::wxImageProcessingProgressDlg;
     142use Uploader::GUI::wxChoiceFilteredPanel;
    142143use utf8;
    143144$|=1;
     
    299300    ) if $self->imageviewer->GetItemCount;
    300301   
     302    # if file in command line parameters, try to load
     303    my $files = wxTheApp->argv;
     304    $self->SetNewFiles($files) if scalar @$files;
     305
    301306    $self->Show;
    302307    $self;
     
    849854
    850855
    851    my $logo = File::Spec->catfile(wxTheApp->bin_dir, '..', wxTheApp->resource_dir, 'piwigo_logo.PNG');
     856   my $logo = File::Spec->catfile(wxTheApp->root_dir, wxTheApp->resource_dir, 'piwigo_logo.PNG');
    852857
    853858
  • extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm

    r4784 r4973  
    111111          privacy_level
    112112          user_defined_properties
     113          root_dir
    113114          bin_dir
    114115          resource_dir
    115116          locale_dir
     117          argv
    116118      /
    117119);
     
    129131# only way : class variable
    130132# there is only one instance of wxApp
     133my $root_dir;
    131134my $bin_dir;
    132135my $resource_dir;
    133136my $locale_dir;
     137my $argv;
    134138sub new {
    135139    my ( $self, $params ) = @_;
    136140
    137     $bin_dir = $params->{bin_dir}||'.';
    138     $locale_dir = $params->{locale_dir}||'.';
    139     $resource_dir = $params->{resource_dir}||'.';
     141    $root_dir      = $params->{root_dir}||'.';
     142    $bin_dir      = $params->{bin_dir}||'bin';
     143    $locale_dir   = $params->{locale_dir}||'locale';
     144    $resource_dir = $params->{resource_dir}||'res';
     145    $argv         = $params->{argv};
    140146
    141147    $self->SUPER::new();
     
    145151    my( $self ) = @_;
    146152
     153    $self->root_dir(
     154        $root_dir
     155    );
     156
    147157    $self->bin_dir(
    148158        $bin_dir
     
    158168
    159169    $self->version(
    160         '2.0.7c'
     170        '1.5 - DEV'
    161171    );
    162172   
     
    164174    $self->imagelist_version(
    165175        '13'
     176    );
     177    $self->argv(
     178        $argv
    166179    );
    167180
     
    258271        #$self->_init_frame;
    259272    }
    260 
     273    #Wx::LogMessage("bin dir %s", $bin_dir);
    261274    $not_exit;
    262275}
     
    267280    my ( $self, $file ) = @_;
    268281
    269     File::Spec->catfile($self->bin_dir, '..', $self->resource_dir, $file);
     282    File::Spec->catfile($self->root_dir, $self->resource_dir, $file);
    270283}
    271284
     
    273286    my ( $self, $file ) = @_;
    274287
    275     File::Spec->catfile($self->bin_dir, $file);
     288    File::Spec->catfile($self->root_dir, $self->bin_dir, $file);
    276289}
    277290
     
    279292    my ( $self, $file ) = @_;
    280293
    281     File::Spec->catfile($self->bin_dir, '..', $self->locale_dir, $file);
     294    File::Spec->catfile($self->root_dir, $self->locale_dir, $file);
    282295}
    283296
     
    285298    my ( $self, $file ) = @_;
    286299
    287     File::Spec->catfile($self->bin_dir, '..', $self->locale_dir, $self->locale->GetCanonicalName, $file);
     300    File::Spec->catfile($self->root_dir, $self->locale_dir, $self->locale->GetCanonicalName, $file);
    288301}
    289302
     
    416429                            my $locale = Wx::Locale->new($_->[1]);
    417430                            $locale->AddCatalogLookupPathPrefix(
    418                         File::Spec->catfile($self->bin_dir, '..', $self->locale_dir)
     431                        File::Spec->catfile($self->root_dir, $self->locale_dir)
    419432                    );
    420433                            $_ if $locale->AddCatalog('pLoader');
     
    465478    );
    466479    $locale->AddCatalogLookupPathPrefix(
    467         File::Spec->catfile($self->bin_dir, '..', $self->locale_dir)
     480        File::Spec->catfile($self->root_dir, $self->locale_dir)
    468481    );
    469482    if(!$locale->AddCatalog( 'pLoader.mo' )){
     
    919932    $icon->LoadFile(
    920933        File::Spec->catfile(
    921             $self->bin_dir, '..', 'res', 'favicon.ico'
     934            $self->root_dir, $self->resource_dir, 'favicon.ico'
    922935        ),
    923936        wxBITMAP_TYPE_ICO
  • extensions/pLoader/trunk/src/ploader.pl

    r4784 r4973  
    4646    my $app = Uploader::GUI::wxApp->new(
    4747            {
    48                 bin_dir      => $FindBin::Bin,
     48                root_dir      => $ENV{PLOADER_ROOT}||'..',
    4949                resource_dir => 'res',
    5050                locale_dir   => 'locale',
     51                argv         => [ grep { -f $_ } @ARGV ],
    5152            }
    5253    );
Note: See TracChangeset for help on using the changeset viewer.