Changeset 10842
- Timestamp:
- 02/19/10 20:27:47 (6 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre-Plugin-SVN/lib/Padre/Plugin/SVN/Wx/BlameTree.pm
r10840 r10842 43 43 my $blame = shift; 44 44 45 my $altColor = 0; 46 45 47 my @tbl; 48 my $lastSeen = ""; 46 49 foreach my $line (@$blame) { 47 50 48 51 chomp($line); 49 52 $line =~ s/^\s+//s; 53 $line =~ m/^(\d+)\s/; 54 my $revNo = $1; 55 50 56 #print "$line\n"; 51 57 #push @tbl, [ split(/\s+/,$line,3) ]; 52 $self->AppendItem(58 my $item = $self->AppendItem( 53 59 $self->{root}, 54 60 $line, … … 57 63 Wx::TreeItemData->new($line) 58 64 ); 65 $altColor++ if( $lastSeen != $revNo ); 59 66 67 68 if( $altColor % 2 == 0 ) { 69 $self->SetItemBackgroundColour( $item, Wx::wxBLUE ); 70 } 71 72 $lastSeen = $revNo; 60 73 } 61 74
