- Timestamp:
- May 27, 2009, 11:23:58 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxImageListCtrl.pm
r3229 r3359 38 38 wxLIST_HITTEST_ONITEM 39 39 wxLIST_NEXT_ALL 40 wxLIST_STATE_SELECTED 40 wxLIST_STATE_SELECTED 41 wxLIST_STATE_DONTCARE 41 42 /; 42 43 use Wx::Event qw/ … … 114 115 } 115 116 117 sub GetAllItems { 118 my ( $self ) = @_; 119 120 # find selected items 121 my $item = -1; 122 my $items = []; 123 while(1) { 124 $item = $self->GetNextItem( 125 $item, 126 wxLIST_NEXT_ALL, 127 wxLIST_STATE_DONTCARE 128 ); 129 last if(-1 == $item); 130 131 # item is selected 132 push @$items, $item 133 } 134 135 $items; 136 137 } 116 138 117 139
Note: See TracChangeset
for help on using the changeset viewer.