Ignore:
Timestamp:
Jan 30, 2010, 1:31:37 PM (14 years ago)
Author:
ronosman
Message:

Feature 1417 added : ability to define tags for a photo selection.

File:
1 edited

Legend:

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

    r4784 r4801  
    632632    );   
    633633
     634    #$self->image_tags(
     635    #    sub { eval { $self->imagelist->current_image->site_tags(@_) } }
     636    #);
    634637    $self->image_tags(
    635         sub { eval { $self->imagelist->current_image->site_tags(@_) } }
     638        sub { scalar @{$self->imagelist->image_selection} > 1 ? $self->imagelist->SetImageSelectionTags(@_) : $self->imagelist->current_image->site_tags(@_)||[] }
    636639    );
    637640
     
    11931196    Wx::Event::EVT_LIST_ITEM_ACTIVATED( $self, $self->imageviewer, \&OnImageViewerItemActivated );
    11941197    Wx::Event::EVT_LIST_ITEM_SELECTED($self, $self->imageviewer, \&OnImageViewerItemSelected) ;
     1198    Wx::Event::EVT_LIST_ITEM_DESELECTED($self, $self->imageviewer, \&OnImageViewerItemDeSelected) ;
    11951199    Wx::Event::EVT_LIST_ITEM_RIGHT_CLICK($self, $self->imageviewer, \&OnImageViewerItemRightClick) ;
    11961200
     
    15071511}
    15081512
     1513sub OnImageViewerItemDeSelected {
     1514    my( $self, $event ) = @_;
     1515
     1516    my $bc = Wx::BusyCursor->new;
     1517    $self->_on_imageviewer_item_selection_changed;
     1518
     1519    $event->Skip;
     1520
     1521}
     1522
    15091523sub _on_imageviewer_item_selected {
    15101524    my ( $self, $index ) = @_;   
     
    15121526    $self->imagelist->SetCurrentImage($index);
    15131527   
     1528    $self->_on_imageviewer_item_selection_changed;
     1529}
     1530
     1531sub _on_imageviewer_item_selection_changed {
     1532    my ( $self ) = @_;   
     1533
    15141534    $self->imagelist->image_selection(
    15151535        $self->imageviewer->GetSelectedItems
    15161536    );
     1537
     1538    # for batch mode : reset the batch buffer if single selection
     1539    $self->imagelist->SetImageSelectionTags([]) if(scalar @{$self->imagelist->image_selection} > 1);
    15171540
    15181541    # process image_preview in idle time
Note: See TracChangeset for help on using the changeset viewer.