Ignore:
Timestamp:
May 27, 2009, 10:25:22 PM (15 years ago)
Author:
ronosman
Message:

Feature 1012 and 1013 : improved Getting started and Preview panel.

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

Legend:

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

    r3285 r3357  
    325325   
    326326    $self->version(
    327         '2.0.2a'
     327        '2.0.2c'
    328328    );
    329329   
     
    443443        Wx::LogMessage gettext("Cannot find translation catalog files. Use default language");
    444444    }
    445        
     445    $self->locale($locale);     
    446446}
    447447
     
    551551        userdata_dir     => $self->userdata_dir,
    552552        default_photo_name => gettext('File name'),
    553         default_name_prefix => gettext('Photo'),
     553        default_name_prefix => gettext('Photo '),
    554554        upload_rejects   =>  [],
    555555        image_sums       => {},
  • extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

    r3287 r3357  
    2424use Wx::DND;
    2525use Wx qw/
     26             wxAUI_DOCKART_PANE_BORDER_SIZE
    2627             wxNullBitmap
    2728             wxID_OK
     
    356357     
    357358use Uploader::GUI::wxImageListCtrl;
     359use Uploader::GUI::wxImagePreview;
    358360use Uploader::GUI::wxImageProcessingProgressDlg;
    359361use Wx::Html;
     
    445447
    446448    $self->manager( Wx::AuiManager->new );
    447     $self->manager->SetDockSizeConstraint(1, 1);
    448449    $self->manager->SetManagedWindow( $self );
    449450    $self->_set_setting_properties;
     
    733734    $self->init_panels;
    734735
    735     $self->imageviewer->Show(0);
     736    #if(!$self->imagelist->wx_thumb_imglist->GetImageCount){
     737    #    $self->imageviewer->Show(0);
     738    #}
     739
     740    #    my $imglistpage = [
     741    #        [
     742    #            $self->imageviewer,
     743    #            gettext("Photo selection"),
     744    #            '../res/images.png',
     745    #            wxBITMAP_TYPE_PNG,
     746    #        ],
     747    #    ];
     748   
     749
    736750
    737751    $self->init_aui;
    738752    $self->init_dnd_targets;
     753    #$self->_populate_notebook($self->notebook, $imglistpage, 1);
     754
    739755    if( $self->imagelist->wx_thumb_imglist->GetImageCount){
    740756        printf("%s images\n", $self->imagelist->wx_thumb_imglist->GetImageCount);
     
    850866    $self->general_settings_panel->Show(0);
    851867
     868if(0){
    852869    $self->image_preview(
    853870        Wx::StaticBitmap->new(
     
    859876        )
    860877    );
     878}
     879    $self->image_preview(
     880        Uploader::GUI::wxImagePreview->new(
     881            $self,
     882            -1,
     883            wxNullBitmap,
     884            wxDefaultPosition,
     885            [$self->preview_w, $self->preview_h]
     886        )
     887    );
     888
    861889
    862890    $self->image_prop_piwigo->Show(0);
     
    869897    my ( $self ) = @_; 
    870898
     899    my $file = sprintf(
     900        "../locale/%s/gs.html",
     901        wxTheApp->locale->GetCanonicalName
     902    );
     903
    871904    $self->htmlhome(
    872905        Uploader::GUI::wxHtmlWindow->new(
    873             $self, -1
     906            $self, -1, [-1, -1], [450, 450]
    874907        )
     908    );
     909   
     910    $self->htmlhome->LoadPage($file) if -e $file ;
     911   
     912    $self->htmlhome->InitHrefCallbacks(
     913        {
     914            new_album => sub {$self->OnAddCategories(@_) },
     915            add_photos => sub { $self->OnAddImages(@_) },
     916            upload_photos => sub { $self->ProcessImageSelection(@_)},   
     917        }
    875918    );
    876919   
     
    895938        )
    896939    );
    897     $self->htmlhome->SetDropTarget(
    898         DNDImageListDropTarget->new(
    899             $self->imageviewer
    900         )
    901     );
     940    #$self->htmlhome->SetDropTarget(
     941    #    DNDImageListDropTarget->new(
     942    #        $self->imageviewer
     943    #    )
     944    #);
    902945
    903946
     
    919962    $self->manager->AddPane
    920963      ( $self->create_notebook_imagelist, Wx::AuiPaneInfo->new->Name( "ImageViewer" )
    921         ->CenterPane->Resizable->CloseButton(0) );
     964        ->CenterPane->Position(1)->Resizable->CloseButton(0) );
    922965
    923966    $self->manager->AddPane
     
    925968        ->Right->Position( 0 )->Resizable->CloseButton(0) );
    926969
    927     $self->manager->AddPane
    928       ( $self->image_preview, Wx::AuiPaneInfo->new->Name( "preview" )
    929         ->Right->Position( 1 )->Resizable->CloseButton(0)->Floatable(0) );
    930970
    931971
     
    941981
    942982    if( $self->perspective){
    943         $self->manager->LoadPerspective($self->perspective);
     983        $self->manager->LoadPerspective($self->perspective) if $self->perspective =~ /getting_started/;
    944984    }
    945985
     
    952992    $self->manager->GetPane("photo_properties")->Caption(gettext("Photo properties"));
    953993    $self->manager->GetPane("global_settings")->Caption(gettext("Global settings"));
     994    $self->manager->GetPane("getting_started")->Caption(gettext("Getting started"));
    954995
    955996   
     
    9601001sub _init_aui_settings_panels {
    9611002    my ( $self ) = @_; 
     1003
     1004    $self->manager->AddPane
     1005      ( $self->image_preview, Wx::AuiPaneInfo->new->Name( "preview" )
     1006        ->Floatable(1)->Resizable->CloseButton(1));
     1007
     1008
     1009    $self->manager->AddPane
     1010      ( $self->htmlhome, Wx::AuiPaneInfo->new->Name( "getting_started" )
     1011       ->Floatable(1)->Resizable->CloseButton(1) );
     1012
    9621013
    9631014    $self->manager->AddPane
     
    9691020        ->Floatable(1)->Resizable->CloseButton(1) );
    9701021
     1022    $self->manager->GetPane("preview")->Show(0);
    9711023    $self->manager->GetPane("photo_properties")->Show(0);
    9721024    $self->manager->GetPane("global_settings")->Show(0);
     1025    $self->manager->GetPane("getting_started")->Float;
     1026    $self->manager->GetPane("getting_started")->Show(1);
    9731027       
    9741028}
     
    9771031    my ( $self ) = @_;
    9781032
    979     $self->manager->GetPane("photo_properties")->Float;
     1033    $self->manager->GetPane("preview")->Float->Show(1);
    9801034    $self->manager->GetPane("photo_properties")->Show(1);
    9811035    $self->manager->Update();   
     
    9831037}
    9841038
     1039sub OnGettingStarted {
     1040    my ( $self ) = @_;
     1041
     1042    $self->toolbar->EnableTool(100, 0 );
     1043    $self->manager->GetPane("getting_started")->Float->Show(1);
     1044    $self->manager->Update();   
     1045       
     1046}
     1047
    9851048sub OnGlobalSettings {
    9861049    my ( $self ) = @_;
    9871050
    9881051    $self->toolbar->EnableTool(104, 0 );
    989     $self->manager->GetPane("global_settings")->Float;
    990     $self->manager->GetPane("global_settings")->Show(1);
     1052    $self->manager->GetPane("global_settings")->Float->Show(1);
    9911053    $self->manager->Update();   
    9921054}
     
    10281090    my $book = Wx::AuiNotebook->new( $self, -1, [-1, -1], [300, 450],
    10291091                                     wxBORDER_NONE|wxAUI_NB_TAB_MOVE|wxAUI_NB_TAB_SPLIT);
    1030     my $pages = [   
    1031         [
    1032             $self->htmlhome,
    1033             gettext("Photo selection"),
    1034             '../res/images.png',
    1035             wxBITMAP_TYPE_PNG,
    1036         ],
    1037         #[
    1038         #    $self->logwnd( $self->_create_textctrl( $book, undef, [450, 450] )),
    1039         #    "Log",
    1040         #    '../res/nb_log.png',
    1041         #    wxBITMAP_TYPE_PNG,
    1042         #]
    1043     ];
    1044    
    1045     $self->_populate_notebook( $book, $pages );
    1046 
    1047     #$self->logwnd(Wx::LogTextCtrl->new( $self->logwnd ));
    1048     #$self->oldlogwnd( Wx::Log::SetActiveTarget( $self->logwnd ) );
     1092
     1093        my $imglistpage = [
     1094            [
     1095                $self->imageviewer,
     1096                gettext("Photo selection"),
     1097                '../res/images.png',
     1098                wxBITMAP_TYPE_PNG,
     1099            ],
     1100        ];
     1101
    10491102    $self->notebook($book);
     1103    $self->_populate_notebook($self->notebook, $imglistpage, 0);
    10501104    return $book;
    10511105}
     
    12401294    my ( $self ) = @_ ;
    12411295       
     1296    Wx::Event::EVT_MENU( $self, 100, \&OnGettingStarted );
    12421297    Wx::Event::EVT_MENU( $self, 101, \&OnAddImages );
    12431298    Wx::Event::EVT_MENU( $self, 102, \&OnRemoveImages );
     
    12761331    }
    12771332    $dialog->Destroy;
    1278     $event->Skip;
     1333#    $event->Skip;
    12791334  }
    12801335}
     
    12891344        else{
    12901345            $self->toolbar->EnableTool(104, 1);                 
     1346        }
     1347        if($self->manager->GetPane("getting_started")->IsShown){
     1348            $self->toolbar->EnableTool(100, 0);                 
     1349        }
     1350        else{
     1351            $self->toolbar->EnableTool(100, 1);                 
    12911352        }
    12921353    }
     
    14631524        wxNullBitmap
    14641525    );
     1526
    14651527    $self->image_preview->Refresh;
    14661528
    1467    
    1468     $self->image_preview->SetBitmap(
    1469         Wx::Bitmap->new(
     1529    my $bmp =         Wx::Bitmap->new(
    14701530            $self->imagelist->current_image->preview_file,
    14711531            $self->GetWxBitmapType($self->imagelist->type),
    1472         )
    1473     );
     1532        );
     1533
     1534       
     1535    $self->image_preview->SetBitmap(
     1536        $bmp
     1537    );
     1538
     1539    my $size = [8+$bmp->GetWidth, 26+$bmp->GetHeight];
     1540    $self->manager->GetPane("preview")->FloatingSize($size);
    14741541   
    14751542    $self->image_preview->Refresh;
     
    15671634
    15681635    if(!$self->imageviewer->IsShown){
    1569         my $imglistpage = [
    1570             [
    1571                 $self->imageviewer,
    1572                 gettext("Photo selection"),
    1573                 '../res/images.png',
    1574                 wxBITMAP_TYPE_PNG,
    1575             ],
    1576         ];
    1577         $self->notebook->DeletePage(0);
     1636        #my $imglistpage = [
     1637        #    [
     1638        #        $self->imageviewer,
     1639        #        gettext("Photo selection"),
     1640        #        '../res/images.png',
     1641        #        wxBITMAP_TYPE_PNG,
     1642        #    ],
     1643        #];
     1644        #$self->notebook->DeletePage(0);
    15781645   
    15791646        $self->imageviewer->Show(1);
    1580         $self->_populate_notebook($self->notebook, $imglistpage, 0);
     1647        #$self->_populate_notebook($self->notebook, $imglistpage, 0);
    15811648        # load imagelist with loading.jpg
    15821649    }
     
    15851652
    15861653
     1654sub ActivateImageViewer {
     1655    my ( $self ) = @_; 
     1656       
     1657}
    15871658
    15881659
     
    16161687
    16171688    if( scalar @{$self->imagelist->categories} ){
     1689       
    16181690        return if( !defined $self->imagelist->image_selection );
    16191691        return if( !scalar @{$self->imagelist->image_selection} );
     
    17371809    }
    17381810    (
     1811        [
     1812            100,
     1813            gettext("Getting started"),
     1814            '../res/tb_getting_started.png',
     1815            wxBITMAP_TYPE_PNG,
     1816            1,
     1817            '../res/tb_getting_started.png',
     1818            gettext("Display getting started panel")
     1819        ],
    17391820        [
    17401821            101,
  • extensions/pLoader/trunk/src/Uploader/GUI/wxHtmlWindow.pm

    r2597 r3357  
    2828  my $this = $class->SUPER::new( @_ );
    2929
    30   if( -e '../res/intro.html' ){
    31       $this->LoadPage(
    32           '../res/intro.html'
    33       );
    34   }
     30  return $this;
     31}
    3532
    36   return $this;
     33sub InitHrefCallbacks {
     34    my ( $self, $callbacks ) = @_;
     35   
     36    $callbacks ||={};
     37    $self->{HrefCallbacks} = $callbacks ;       
    3738}
    3839
     
    4041  my( $this, $link ) = @_;
    4142
    42   Wx::LogMessage( 'Link clicked: href="%s"', $link->GetHref() );
    43   $this->SUPER::OnLinkClicked( $link );
     43  my $href = $link->GetHref();
     44
     45  $this->{HrefCallbacks}->{$href}->() if exists $this->{HrefCallbacks}->{$href};
     46
    4447}
    4548
Note: See TracChangeset for help on using the changeset viewer.