← 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-08-12 14:44:55 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20090812144455-yvk90oa92khfcnls
Tags: 0.42-1
* New Upstream Version
  + add explicit dependency on libtest-simple-perl (>= 0.88)
  + rules: use dh --with quilt (and bump quilt build-dependency to 0.46-7)
  + rules: no need to re-generate .mo files from .po. Upstream does it now
  + copyright: describe share/icons/padre/16x16/logo.png
    - describe share/icons/padre/16x16/toggle-comments.png
    - Padre license is the same as Perl (i.e. not Perl 5)
    - update list of copright holders
    - also list translators
  + drop libtest-most-perl from build-dependencies
  + add liblocale-msgfmt-perl to build-dependencies
  + add libcapture-tiny-perl to (build-)dependencies
  + add libfile-remove-perl (>= 1.42) to (build-)dependencies
  + drop libmodule-inspector-perl from (build-)dependencies
  + add libppix-editortools-perl to (build-)dependencies
  + add libparse-exuberantctags-perl to (build-)dependencies
  + patches:
    - drop lower-wx-requirement-to-2.8.7.patch and replace it with
      SKIP_WXWIDGETS_VERSION_CHECK=1 when configuring
      adjust README.debian accordingly
    - refresh disable-tcp-server.patch
    - drop don't-require-new-file-path.patch (applied upstream)
    - rework fix-pod2-errors.patch (new release, new errors :))
* add fix-perl-interpreter-path.patch fixing the path to the perl interpreter
  in three examples (thanks lintian)
* add more lintian overrides about script-not-executable for scripts that are
  treated as examples/templates
* add fix-whatis.patch fixing the whatis entry of Padre::Wx
* add menu and .desktop file

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.36';
 
20
our $VERSION = '0.42';
21
21
 
22
22
#####################################################################
23
23
# Construction, Setup, and Accessors
28
28
 
29
29
        # Don't add accessors to here until they have been
30
30
        # upgraded to be fully encapsulated classes.
31
 
        file         => 'file',
32
 
        edit         => 'edit',
33
 
        search       => 'search',
34
 
        view         => 'view',
35
 
        perl         => 'perl',
36
 
        run          => 'run',
37
 
        plugins      => 'plugins',
38
 
        window       => 'window',
39
 
        help         => 'help',
40
 
        experimental => 'experimental',
 
31
        file    => 'file',
 
32
        edit    => 'edit',
 
33
        search  => 'search',
 
34
        view    => 'view',
 
35
        perl    => 'perl',
 
36
        run     => 'run',
 
37
        plugins => 'plugins',
 
38
        window  => 'window',
 
39
        help    => 'help',
41
40
};
42
41
 
43
42
sub new {
78
77
        $self->wx->Append( $self->window->wx,  Wx::gettext("&Window") );
79
78
        $self->wx->Append( $self->help->wx,    Wx::gettext("&Help") );
80
79
 
81
 
        my $config = Padre->ide->config;
82
 
        if ( $config->experimental ) {
83
 
 
84
 
                # Create the Experimental menu
85
 
                # All the crap that doesn't work, have a home,
86
 
                # or should never be seen be real users goes here.
87
 
                require Padre::Wx::Menu::Experimental;
88
 
                $self->{experimental} = Padre::Wx::Menu::Experimental->new($main);
89
 
                $self->wx->Append( $self->experimental->wx, Wx::gettext("E&xperimental") );
90
 
                $self->{default}++;
91
 
        }
 
80
        my $config = $self->main->ide->config;
92
81
 
93
82
        Wx::Event::EVT_MENU_OPEN(
94
83
                $main,
141
130
        $self->window->refresh($current);
142
131
        $self->help->refresh($current);
143
132
 
144
 
        if ( $self->experimental ) {
145
 
                $self->experimental->refresh($current);
146
 
        }
147
 
 
148
133
        return 1;
149
134
}
150
135