Ticket #1508: Breakpoints.pm.patch

File Breakpoints.pm.patch, 1.8 KB (added by itcharlie, 14 months ago)

Patch for Breakpoint list panel

  • Breakpoints.pm

     
    356356 
    357357    my $index = 0; 
    358358    my $item  = Wx::ListItem->new; 
     359    my $project_dir = $self->{project_dir}; 
     360    my $current_file = $self->{current_file}; 
     361     
     362    if ( $^O eq 'MSWin32') { 
     363        $project_dir =~ s/\\/\\\\/g; 
     364        $current_file =~ s/\\/\\\\/g; 
     365    } 
     366 
     367     
    359368    for ( 0 .. $#tuples ) { 
    360369 
    361         if ( $tuples[$_][1] =~ m/^ $self->{project_dir} /sxm ) { 
    362             if ( $tuples[$_][1] =~ m/ $self->{current_file} $/sxm ) { 
     370        if ( $tuples[$_][1] =~ m/^ $project_dir /sxm ) { 
     371            if ( $tuples[$_][1] =~ m/ $current_file $/sxm ) { 
    363372                $item->SetId($index); 
    364373                $self->{list}->InsertItem($item); 
    365374                if ( $tuples[$_][3] == 1 ) { 
     
    376385                    ); 
    377386                } 
    378387                $self->{list}->SetItem( $index, 1, ( $tuples[$_][2] ) ); 
    379                 $tuples[$_][1] =~ s/^ $self->{project_dir} //sxm; 
     388                $tuples[$_][1] =~ s/^ $project_dir //sxm; 
    380389                $self->{list}->SetItem( $index, 0, ( $tuples[$_][1] ) ); 
    381390                $self->{line_numbers}[$index] = $tuples[$_][2]; 
    382391 
     
    389398            if ( $self->{show_project} == 1 ) { 
    390399 
    391400                # we need to switch around due to previously stripping project_dir 
    392                 if ( $self->{current_file} !~ m/ $tuples[$_][1] $/sxm ) { 
     401                if ( $current_file !~ m/ $tuples[$_][1] $/sxm ) { 
    393402 
    394403                    $item->SetId($index); 
    395404                    $self->{list}->InsertItem($item); 
     
    399408                        $self->{list}->SetItemTextColour( $index, DARK_GRAY ); 
    400409                    } 
    401410                    $self->{list}->SetItem( $index, 1, ( $tuples[$_][2] ) ); 
    402                     $tuples[$_][1] =~ s/^ $self->{project_dir} //sxm; 
     411                    $tuples[$_][1] =~ s/^ $project_dir //sxm; 
    403412                    $self->{list}->SetItem( $index, 0, ( $tuples[$_][1] ) ); 
    404413                    $self->{line_numbers}[$index] = $tuples[$_][2]; 
    405414