Changeset 3357


Ignore:
Timestamp:
05/27/09 22:25:22 (10 years ago)
Author:
ronosman
Message:

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

Location:
extensions/pLoader/trunk
Files:
3 added
1 deleted
4 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.