← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Debugger.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/Debugger.pm
20
20
use 5.008;
21
21
use strict;
22
22
use warnings;
23
 
use Padre::Current ();
24
 
use Padre::Wx      ();
 
23
use Padre::Constant ();
 
24
use Padre::Current  ();
 
25
use Padre::Wx       ();
25
26
use Padre::Logger;
26
27
 
27
 
our $VERSION = '0.90';
 
28
our $VERSION = '0.92';
28
29
 
29
30
=pod
30
31
 
160
161
 
161
162
        #### TODO this was taken from the Padre::Wx::Syntax::start() and  changed a bit.
162
163
        # They should be reunited soon !!!! (or not)
163
 
        $editor->SetMarginType( 1, Wx::wxSTC_MARGIN_SYMBOL );
164
 
        $editor->SetMarginWidth( 1, 16 );
165
 
        $editor->MarkerDeleteAll(Padre::Wx::MarkLocation);
166
 
        $editor->MarkerAdd( $row - 1, Padre::Wx::MarkLocation );
 
164
        $editor->SetMarginWidth( Padre::Constant::MARGIN_MARKER, 16 );
 
165
        $editor->MarkerDeleteAll(Padre::Constant::MARKER_LOCATION);
 
166
        $editor->MarkerAdd( $row - 1, Padre::Constant::MARKER_LOCATION );
167
167
 
168
168
        my $debugger = $main->debugger;
169
169
        my $count    = $debugger->GetItemCount;
226
226
                $self->error( sprintf( Wx::gettext("Could not set breakpoint on file '%s' row '%s'"), $file, $row ) );
227
227
                return;
228
228
        }
229
 
        $editor->MarkerAdd( $row - 1, Padre::Wx::MarkBreakpoint() );
 
229
        $editor->MarkerAdd( $row - 1, Padre::Constant::MARKER_BREAKPOINT );
230
230
 
231
231
        # TODO: This should be the condition I guess
232
232
        $self->{save}->{ $self->{file} }->{breakpoints}->{$file}->{$row} = 1;
258
258
        # Clean up the GUI artifacts
259
259
        my $current = Padre::Current->new;
260
260
        $current->main->show_debug(0);
261
 
        $current->editor->MarkerDeleteAll(Padre::Wx::MarkLocation);
 
261
        $current->editor->MarkerDeleteAll(Padre::Constant::MARKER_LOCATION);
262
262
 
263
263
        # Detach the debugger
264
264
        $self->{client}->quit;