Changeset 4973


Ignore:
Timestamp:
02/27/10 10:29:33 (10 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.