Changeset 3384


Ignore:
Timestamp:
06/01/09 16:22:15 (10 years ago)
Author:
ronosman
Message:

Feature 1005 added : 2 new right-click actions : expand all and collapse all for category tree.

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

Legend:

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

    r3383 r3384  
    13281328        [ 
    13291329            2+$ID_TREE_CTX_MENU,  
    1330             "Refresh", 
     1330            gettext("Refresh"), 
    13311331            sprintf( 
    13321332                "Refresh %s list.", 
     
    13341334            ), 
    13351335            '../res/mnu_refresh.png', 
     1336        ], 
     1337        [ 
     1338            3+$ID_TREE_CTX_MENU,  
     1339            gettext("Expand all"), 
     1340            sprintf( 
     1341                "Expand %s list.", 
     1342                wxTheApp->branding->{category}, 
     1343            ), 
     1344            '../res/mnu_expandall.png', 
     1345        ], 
     1346        [ 
     1347            4+$ID_TREE_CTX_MENU,  
     1348            gettext("Collapse all"), 
     1349            sprintf( 
     1350                "Collapse %s list.", 
     1351                wxTheApp->branding->{category}, 
     1352            ), 
     1353            '../res/mnu_collapseall.png', 
    13361354        ], 
    13371355    ); 
     
    14061424    Wx::Event::EVT_MENU( $self, 1+$ID_TREE_CTX_MENU, \&OnAddCategories ); 
    14071425    Wx::Event::EVT_MENU( $self, 2+$ID_TREE_CTX_MENU, \&OnRefreshCategories ); 
     1426    Wx::Event::EVT_MENU( $self, 3+$ID_TREE_CTX_MENU, \&OnExpandCategories ); 
     1427    Wx::Event::EVT_MENU( $self, 4+$ID_TREE_CTX_MENU, \&OnCollapseCategories ); 
     1428 
    14081429    Wx::Event::EVT_MENU( $self, 1+$ID_IMAGEVIEWER_CTX_MENU, \&OnPhotoProperties ); 
    14091430    Wx::Event::EVT_MENU( $self, 2+$ID_IMAGEVIEWER_CTX_MENU, \&OnPreview ); 
     
    15281549         
    15291550         
     1551} 
     1552 
     1553sub OnExpandCategories { 
     1554    my ( $self, $event ) = @_; 
     1555 
     1556    my $parent_item = $self->tree->GetSelection; 
     1557    $self->tree->ExpandAllChildren($parent_item); 
     1558} 
     1559 
     1560sub OnCollapseCategories { 
     1561    my ( $self, $event ) = @_; 
     1562 
     1563    my $parent_item = $self->tree->GetSelection; 
     1564    $self->tree->CollapseAllChildren($parent_item); 
    15301565} 
    15311566 
Note: See TracChangeset for help on using the changeset viewer.