Changeset 3384 for extensions


Ignore:
Timestamp:
Jun 1, 2009, 4:22:15 PM (15 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.