← Back to branch summary

~ubuntu-branches/ubuntu/wily/padre/wily

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2009-05-09 18:19:53 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20090509181953-ttew3adppp057nha
Tags: 0.35-1
* New Upstream Version

* install eg/ as examples only in padre (not also in libwx-perl-
  dialog-perl)
* mention --pristine-tar in README.source
* add disable-tcp-server.patch
  the tcp server is used for communication with running instance of padre.
  Although it only listens on 127.0.0.1, there is no measures taken to
  ensure that the user connecting to the server is the same as the user
  running padre.
* add README.debian documenting changes in the package compared to
  upstream sources

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/Menubar.pm
17
17
use Padre::Wx::Menu::Window  ();
18
18
use Padre::Wx::Menu::Help    ();
19
19
 
20
 
our $VERSION = '0.34';
 
20
our $VERSION = '0.35';
21
21
 
22
22
#####################################################################
23
23
# Construction, Setup, and Accessors
144
144
        return 1;
145
145
}
146
146
 
 
147
sub refresh_top {
 
148
        my $self = shift;
 
149
 
 
150
        my $current  = _CURRENT(@_);
 
151
        my $menu     = $self->wx->GetMenuCount ne $self->{default};
 
152
        my $document = !!_INSTANCE(
 
153
                $current->document,
 
154
                'Padre::Document::Perl'
 
155
        );
 
156
 
 
157
        # Add/Remove the Perl menu
 
158
        if ( $document and not $menu ) {
 
159
                $self->wx->Insert( 4, $self->perl->wx, Wx::gettext("&Perl") );
 
160
        } elsif ( $menu and not $document ) {
 
161
                $self->wx->Remove(4);
 
162
        }
 
163
 
 
164
        return 1;
 
165
}
 
166
 
147
167
1;
148
168
 
149
169
# Copyright 2008-2009 The Padre development team as listed in Padre.pm.