← Back to branch summary

~ubuntu-branches/ubuntu/quantal/padre/quantal

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Menu/View.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/Menu/View.pm
8
8
use Padre::Constant          ();
9
9
use Padre::Current           ();
10
10
use Padre::Feature           ();
11
 
use Padre::Config::Style     ();
12
11
use Padre::Wx                ();
13
12
use Padre::Wx::ActionLibrary ();
14
13
use Padre::Wx::Menu          ();
15
14
use Padre::Locale            ();
16
15
 
17
 
our $VERSION    = '0.90';
 
16
our $VERSION    = '0.92';
18
17
our $COMPATIBLE = '0.87';
19
18
our @ISA        = 'Padre::Wx::Menu';
20
19
 
44
43
        $self->AppendSeparator;
45
44
 
46
45
        # Show or hide GUI elements
 
46
        $self->{command_line} = $self->add_menu_action(
 
47
                'view.command_line',
 
48
        );
 
49
 
 
50
        $self->{cpan_explorer} = $self->add_menu_action('view.cpan_explorer')
 
51
                if $main->config->feature_cpan_explorer;
 
52
 
47
53
        $self->{functions} = $self->add_menu_action(
48
54
                'view.functions',
49
55
        );
50
56
 
51
 
        $self->{todo} = $self->add_menu_action(
52
 
                'view.todo',
 
57
        $self->{directory} = $self->add_menu_action(
 
58
                'view.directory',
53
59
        );
54
60
 
55
61
        $self->{outline} = $self->add_menu_action(
56
62
                'view.outline',
57
63
        );
58
64
 
59
 
        $self->{directory} = $self->add_menu_action(
60
 
                'view.directory',
61
 
        );
62
 
 
63
65
        $self->{output} = $self->add_menu_action(
64
66
                'view.output',
65
67
        );
68
70
                'view.syntaxcheck',
69
71
        );
70
72
 
71
 
        $self->{command_line} = $self->add_menu_action(
72
 
                'view.command_line',
 
73
        $self->{todo} = $self->add_menu_action(
 
74
                'view.todo',
73
75
        );
74
76
 
 
77
        $self->{vcs} = $self->add_menu_action('view.vcs')
 
78
                if $main->config->feature_vcs_support;
 
79
 
75
80
        $self->{toolbar} = $self->add_menu_action(
76
81
                'view.toolbar',
77
82
        );
87
92
                $self->{view_as_highlighting} = Wx::Menu->new;
88
93
                $self->Append(
89
94
                        -1,
90
 
                        Wx::gettext("View Document As..."),
 
95
                        Wx::gettext("&View Document As..."),
91
96
                        $self->{view_as_highlighting}
92
97
                );
93
98
 
166
171
                $self->{fontsize} = Wx::Menu->new;
167
172
                $self->Append(
168
173
                        -1,
169
 
                        Wx::gettext('Font Size'),
 
174
                        Wx::gettext('Font Si&ze'),
170
175
                        $self->{fontsize}
171
176
                );
172
177
 
198
203
        $self->{language} = Wx::Menu->new;
199
204
        $self->Append(
200
205
                -1,
201
 
                Wx::gettext('Language'),
 
206
                Wx::gettext('Lan&guage'),
202
207
                $self->{language}
203
208
        );
204
209
 
262
267
        $self->{calltips}->Check( $config->editor_calltips );
263
268
        $self->{command_line}->Check( $config->main_command_line );
264
269
        $self->{syntaxcheck}->Check( $config->main_syntaxcheck );
 
270
        $self->{vcs}->Check( $config->main_vcs ) if $config->feature_vcs_support;
 
271
        $self->{cpan_explorer}->Check( $config->main_cpan_explorer )
 
272
                if $config->feature_cpan_explorer;
265
273
        $self->{toolbar}->Check( $config->main_toolbar );
266
274
 
267
275
        if (Padre::Feature::FOLDING) {
275
283
        # Check state for word wrap is document-specific
276
284
        if ($document) {
277
285
                my $editor = $document->editor;
278
 
                my $mode   = $editor->GetWrapMode;
 
286
                my $mode   = $editor->get_wrap_mode;
279
287
                my $wrap   = $self->{word_wrap};
280
 
                if ( $mode eq Wx::wxSTC_WRAP_WORD and not $wrap->IsChecked ) {
 
288
                if ( $mode eq 'WORD' and not $wrap->IsChecked ) {
281
289
                        $wrap->Check(1);
282
 
                } elsif ( $mode eq Wx::wxSTC_WRAP_NONE and $wrap->IsChecked ) {
 
290
                } elsif ( $mode eq 'NONE' and $wrap->IsChecked ) {
283
291
                        $wrap->Check(0);
284
292
                }
285
293