Changeset 4779 for extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
- Timestamp:
- Jan 28, 2010, 12:55:45 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
r4772 r4779 2 2 # | pLoader - a Perl photo uploader for Piwigo | 3 3 # +-----------------------------------------------------------------------+ 4 # | Copyright(C) 2008 4 # | Copyright(C) 2008-2010 Piwigo Team http://piwigo.org | 5 5 # +-----------------------------------------------------------------------+ 6 6 # | This program is free software; you can redistribute it and/or modify | … … 2062 2062 2063 2063 $self->tree($tree); 2064 # $self->frame($tree->GetParent);2065 2064 2066 2065 return $self; … … 2071 2070 sub OnDropText { 2072 2071 my( $self, $x, $y, $textdata ) = @_; 2073 print $textdata;2074 2072 2075 2073 # must be $VAR1 because $textdata is the result of Data::Dumper … … 2090 2088 @items = grep { $self->tree->GetPlData( $_ ) != -1 } @items; 2091 2089 2092 wxTheApp->frame->imagelist->categories(2093 [2094 map {2095 $self->tree->GetPlData( $_ )->{id};2096 }2097 @items2098 ]2099 );2090 wxTheApp->frame->imagelist->categories( 2091 [ 2092 map { 2093 $self->tree->GetPlData( $_ )->{id}; 2094 } 2095 @items 2096 ] 2097 ); 2100 2098 2101 2099 wxTheApp->frame->imagelist->image_selection($VAR1);
Note: See TracChangeset
for help on using the changeset viewer.