← Back to branch summary

~ubuntu-branches/ubuntu/karmic/padre/karmic

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Menu/Run.pm

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2009-04-28 16:21:53 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20090428162153-9p3ygfznr9xt08sn
Tags: 0.34-1
* New upstream release

* bump liborlite-perl (build-)dependency to 1.20
* bump liborlite-migrate-perl (build-)dependency to 0.03
* refresh patches

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/Menu/Run.pm
9
9
use Padre::Wx::Menu ();
10
10
use Padre::Current qw{_CURRENT};
11
11
 
12
 
our $VERSION = '0.33';
 
12
our $VERSION = '0.34';
13
13
use base 'Padre::Wx::Menu';
14
14
 
15
15
#####################################################################
38
38
                },
39
39
        );
40
40
 
41
 
        $self->{run_document_parameters} = $self->Append(
42
 
                -1,
43
 
                Wx::gettext("Run Parameters\tShift-Ctrl-F5")
44
 
        );
45
 
        Wx::Event::EVT_MENU(
46
 
                $main,
47
 
                $self->{run_document_parameters},
48
 
                sub {
49
 
                        $_[0]->run_document_parameters;
50
 
                },
51
 
        );
52
 
 
53
41
        $self->{run_document_debug} = $self->Append(
54
42
                -1,
55
43
                Wx::gettext("Run Script (debug info)\tShift-F5")
120
108
                ? $self->{run_command}->IsEnabled
121
109
                : 0
122
110
        );
123
 
        $self->{run_document_parameters}->Enable(
124
 
                  $document
125
 
                ? $self->{run_command}->IsEnabled
126
 
                : 0
127
 
        );
128
111
        $self->{run_document_debug}->Enable(
129
112
                  $document
130
113
                ? $self->{run_command}->IsEnabled
145
128
sub enable {
146
129
        my $self = shift;
147
130
        $self->{run_document}->Enable(1);
148
 
        $self->{run_document_parameters}->Enable(1);
149
131
        $self->{run_document_debug}->Enable(1);
150
132
        $self->{run_command}->Enable(1);
151
133
        $self->{stop}->Enable(0);
155
137
sub disable {
156
138
        my $self = shift;
157
139
        $self->{run_document}->Enable(0);
158
 
        $self->{run_document_parameters}->Enable(0);
159
140
        $self->{run_document_debug}->Enable(0);
160
141
        $self->{run_command}->Enable(0);
161
142
        $self->{stop}->Enable(1);