Changeset 3365


Ignore:
Timestamp:
05/29/09 22:31:24 (10 years ago)
Author:
ronosman
Message:

Feature 1016 added : popup menu for Photo selection with "Prperties" and "Preview" menu items.

Location:
extensions/pLoader/trunk
Files:
4 added
1 edited

Legend:

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

    r3362 r3365  
    351351          EVT_LIST_ITEM_SELECTED 
    352352          EVT_LIST_ITEM_ACTIVATED 
     353          EVT_LIST_ITEM_RIGHT_CLICK 
    353354          EVT_TREE_ITEM_RIGHT_CLICK 
    354355          EVT_LIST_KEY_DOWN 
     
    370371 
    371372my $ID_TREE_CTX_MENU = 20000 ; 
     373my $ID_IMAGEVIEWER_CTX_MENU = 20100 ; 
    372374 
    373375sub new { 
     
    379381                                      [ $params->{x}, $params->{y} ], 
    380382                                      [ $params->{width}, $params->{height} ], 
    381                                       wxDEFAULT_FRAME_STYLE|wxMAXIMIZE 
     383                                      wxDEFAULT_FRAME_STYLE 
    382384                                   ); 
    383385    $self->preview_w( 
     
    10251027    my ( $self ) = @_; 
    10261028 
     1029    $self->manager->GetPane("photo_properties")->Show(1); 
     1030    $self->manager->Update();     
     1031         
     1032} 
     1033 
     1034sub OnPreview { 
     1035    my ( $self ) = @_; 
     1036 
    10271037    $self->manager->GetPane("preview")->Float->Show(1); 
    1028     $self->manager->GetPane("photo_properties")->Show(1); 
    10291038    $self->manager->Update();     
    10301039         
     
    12961305    EVT_TREE_SEL_CHANGED( $self, $self->tree, \&OnTreeSelChanged ); 
    12971306    EVT_TREE_ITEM_RIGHT_CLICK( $self->tree, $self->tree, \&OnTreeItemRightClick ); 
     1307 
    12981308    EVT_LIST_END_LABEL_EDIT( $self, $self->imageviewer, \&OnImageViewerEndLabelEdit ); 
    12991309    EVT_LIST_ITEM_ACTIVATED( $self, $self->imageviewer, \&OnImageViewerItemActivated ); 
    13001310    EVT_LIST_ITEM_SELECTED($self, $self->imageviewer, \&OnImageViewerItemSelected) ; 
     1311    EVT_LIST_ITEM_RIGHT_CLICK($self, $self->imageviewer, \&OnImageViewerItemRightClick) ; 
     1312 
    13011313    EVT_LIST_KEY_DOWN($self, $self->imageviewer, \&OnImageViewerKeyDown) ; 
     1314 
    13021315    EVT_CLOSE( $self, \&OnClose ); 
    13031316    Wx::Event::EVT_UPDATE_UI( $self, $self, \&OnUpdateUI ); 
     
    13061319    Wx::Event::EVT_MENU( $self, 1+$ID_TREE_CTX_MENU, \&OnAddCategories ); 
    13071320    Wx::Event::EVT_MENU( $self, 2+$ID_TREE_CTX_MENU, \&OnRefreshCategories ); 
     1321    Wx::Event::EVT_MENU( $self, 1+$ID_IMAGEVIEWER_CTX_MENU, \&OnPhotoProperties ); 
     1322    Wx::Event::EVT_MENU( $self, 2+$ID_IMAGEVIEWER_CTX_MENU, \&OnPreview ); 
     1323 
     1324 
    13081325} 
    13091326 
     
    14151432    map { 
    14161433        $ctx_mnu->Append( 
    1417             @$_ 
    1418         ); 
     1434            @$_[0..2] 
     1435        )->SetBitmap(Wx::Bitmap->new($_->[3],wxBITMAP_TYPE_PNG)); 
    14191436    } 
    14201437    ( 
     
    14281445                gettext("to the currently selected"), 
    14291446                wxTheApp->branding->{category}, 
    1430             ) 
     1447            ), 
     1448            '../res/mnu_folder_new.png', 
    14311449        ], 
    14321450        [ 
     
    14361454                "Refresh %s list.", 
    14371455                wxTheApp->branding->{category}, 
    1438             ) 
     1456            ), 
     1457            '../res/mnu_refresh.png', 
    14391458        ], 
    14401459    ); 
    1441     $self->PopupMenu($ctx_mnu, $point); 
     1460 
     1461    $self->PopupMenu($ctx_mnu, wxDefaultPosition); 
     1462         
     1463} 
     1464 
     1465 
     1466sub OnImageViewerItemRightClick { 
     1467    my( $self, $event ) = @_; 
     1468 
     1469    my $point = $event->GetPoint ; 
     1470    my $ctx_mnu = Wx::Menu->new; 
     1471     
     1472    map { 
     1473        $ctx_mnu->Append( 
     1474            @$_[0..2] 
     1475        )->SetBitmap(Wx::Bitmap->new($_->[3],wxBITMAP_TYPE_PNG)); 
     1476    } 
     1477    ( 
     1478        [ 
     1479            1+$ID_IMAGEVIEWER_CTX_MENU,  
     1480            gettext("Properties"), 
     1481            gettext("Modify photo properties"), 
     1482            '../res/mnu_properties.png', 
     1483        ], 
     1484        [ 
     1485            2+$ID_IMAGEVIEWER_CTX_MENU,  
     1486            gettext("Preview"), 
     1487            gettext("Display photo preview"), 
     1488            '../res/mnu_preview.png', 
     1489        ], 
     1490    ); 
     1491     
     1492    $self->PopupMenu($ctx_mnu, wxDefaultPosition); 
     1493         
    14421494         
    14431495} 
Note: See TracChangeset for help on using the changeset viewer.