← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Dialog/Shortcut.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/Dialog/Shortcut.pm
7
7
use Padre::Wx::Role::Main ();
8
8
use Padre::Locale         ();
9
9
 
10
 
our $VERSION = '0.90';
 
10
our $VERSION = '0.92';
11
11
our @ISA     = qw{
12
12
        Padre::Wx::Role::Main
13
13
        Wx::Dialog
30
30
                $main,
31
31
                -1,
32
32
                Wx::gettext('A Dialog'),
33
 
                Wx::wxDefaultPosition,
34
 
                Wx::wxDefaultSize,
35
 
                Wx::wxCAPTION | Wx::wxCLOSE_BOX | Wx::wxSYSTEM_MENU
 
33
                Wx::DefaultPosition,
 
34
                Wx::DefaultSize,
 
35
                Wx::CAPTION | Wx::CLOSE_BOX | Wx::SYSTEM_MENU
36
36
        );
37
37
 
38
38
        $self->{action_label} = Wx::StaticText->new(
39
39
                $self,
40
40
                -1,
41
41
                Wx::gettext("Action: %s"),
42
 
                Wx::wxDefaultPosition,
43
 
                Wx::wxDefaultSize,
 
42
                Wx::DefaultPosition,
 
43
                Wx::DefaultSize,
44
44
        );
45
45
        my $line_1 = Wx::StaticLine->new(
46
46
                $self,
47
47
                -1,
48
 
                Wx::wxDefaultPosition,
49
 
                Wx::wxDefaultSize,
 
48
                Wx::DefaultPosition,
 
49
                Wx::DefaultSize,
50
50
        );
51
51
        $self->{ctrl_checkbox} = Wx::CheckBox->new(
52
52
                $self,
53
53
                -1,
54
54
                Wx::gettext("CTRL"),
55
 
                Wx::wxDefaultPosition,
56
 
                Wx::wxDefaultSize,
 
55
                Wx::DefaultPosition,
 
56
                Wx::DefaultSize,
57
57
        );
58
58
        my $label_3 = Wx::StaticText->new(
59
59
                $self,
60
60
                -1,
61
61
                Wx::gettext("+"),
62
 
                Wx::wxDefaultPosition,
63
 
                Wx::wxDefaultSize,
 
62
                Wx::DefaultPosition,
 
63
                Wx::DefaultSize,
64
64
        );
65
65
        $self->{alt_checkbox} = Wx::CheckBox->new(
66
66
                $self,
67
67
                -1,
68
68
                Wx::gettext("ALT"),
69
 
                Wx::wxDefaultPosition,
70
 
                Wx::wxDefaultSize,
 
69
                Wx::DefaultPosition,
 
70
                Wx::DefaultSize,
71
71
        );
72
72
        my $label_2 = Wx::StaticText->new(
73
73
                $self,
74
74
                -1,
75
75
                Wx::gettext("+"),
76
 
                Wx::wxDefaultPosition,
77
 
                Wx::wxDefaultSize,
 
76
                Wx::DefaultPosition,
 
77
                Wx::DefaultSize,
78
78
        );
79
79
        $self->{shift_checkbox} = Wx::CheckBox->new(
80
80
                $self,
81
81
                -1,
82
82
                Wx::gettext("SHIFT"),
83
 
                Wx::wxDefaultPosition,
84
 
                Wx::wxDefaultSize,
 
83
                Wx::DefaultPosition,
 
84
                Wx::DefaultSize,
85
85
        );
86
86
        my $label_1 = Wx::StaticText->new(
87
87
                $self,
88
88
                -1,
89
89
                Wx::gettext("+"),
90
 
                Wx::wxDefaultPosition,
91
 
                Wx::wxDefaultSize,
 
90
                Wx::DefaultPosition,
 
91
                Wx::DefaultSize,
92
92
        );
93
93
        $self->{key_box} = Wx::ComboBox->new(
94
94
                $self,
95
95
                -1,
96
96
                "",
97
 
                Wx::wxDefaultPosition,
98
 
                Wx::wxDefaultSize,
 
97
                Wx::DefaultPosition,
 
98
                Wx::DefaultSize,
99
99
                [],
100
 
                Wx::wxCB_DROPDOWN,
 
100
                Wx::CB_DROPDOWN,
101
101
        );
102
102
        $self->{ok} = Wx::Button->new(
103
103
                $self,
104
 
                Wx::wxID_OK,
 
104
                Wx::ID_OK,
105
105
                "",
106
106
        );
107
107
        $self->{cancel} = Wx::Button->new(
108
108
                $self,
109
 
                Wx::wxID_CANCEL,
 
109
                Wx::ID_CANCEL,
110
110
                "",
111
111
        );
112
112
        Wx::Event::EVT_CHECKBOX( $self, $self->{shift_checkbox}->GetId, \&foo );
113
113
        $self->SetTitle( Wx::gettext("Shortcut") );
114
114
        $self->{key_box}->SetSelection(-1);
115
 
        my $sizer_1 = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
116
 
        my $sizer_2 = Wx::BoxSizer->new(Wx::wxVERTICAL);
117
 
        $self->{button_sizer} = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
118
 
        my $sizer_8 = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
119
 
        $sizer_2->Add( $self->{action_label},   0, Wx::wxEXPAND,                                           0 );
120
 
        $sizer_2->Add( $line_1,                 0, Wx::wxTOP | Wx::wxBOTTOM | Wx::wxEXPAND,                5 );
121
 
        $sizer_8->Add( $self->{ctrl_checkbox},  0, Wx::wxALIGN_CENTER_VERTICAL,                            0 );
122
 
        $sizer_8->Add( $label_3,                0, Wx::wxLEFT | Wx::wxRIGHT | Wx::wxALIGN_CENTER_VERTICAL, 8 );
123
 
        $sizer_8->Add( $self->{alt_checkbox},   0, Wx::wxALIGN_CENTER_VERTICAL,                            0 );
124
 
        $sizer_8->Add( $label_2,                0, Wx::wxLEFT | Wx::wxRIGHT | Wx::wxALIGN_CENTER_VERTICAL, 8 );
125
 
        $sizer_8->Add( $self->{shift_checkbox}, 0, Wx::wxALIGN_CENTER_VERTICAL,                            0 );
126
 
        $sizer_8->Add( $label_1,                0, Wx::wxLEFT | Wx::wxRIGHT | Wx::wxALIGN_CENTER_VERTICAL, 8 );
127
 
        $sizer_8->Add( $self->{key_box},        0, Wx::wxALIGN_CENTER_VERTICAL,                            0 );
128
 
        $sizer_2->Add( $sizer_8,                1, Wx::wxEXPAND,                                           0 );
 
115
        my $sizer_1 = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
116
        my $sizer_2 = Wx::BoxSizer->new(Wx::VERTICAL);
 
117
        $self->{button_sizer} = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
118
        my $sizer_8 = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
119
        $sizer_2->Add( $self->{action_label},   0, Wx::EXPAND,                                       0 );
 
120
        $sizer_2->Add( $line_1,                 0, Wx::TOP | Wx::BOTTOM | Wx::EXPAND,                5 );
 
121
        $sizer_8->Add( $self->{ctrl_checkbox},  0, Wx::ALIGN_CENTER_VERTICAL,                        0 );
 
122
        $sizer_8->Add( $label_3,                0, Wx::LEFT | Wx::RIGHT | Wx::ALIGN_CENTER_VERTICAL, 8 );
 
123
        $sizer_8->Add( $self->{alt_checkbox},   0, Wx::ALIGN_CENTER_VERTICAL,                        0 );
 
124
        $sizer_8->Add( $label_2,                0, Wx::LEFT | Wx::RIGHT | Wx::ALIGN_CENTER_VERTICAL, 8 );
 
125
        $sizer_8->Add( $self->{shift_checkbox}, 0, Wx::ALIGN_CENTER_VERTICAL,                        0 );
 
126
        $sizer_8->Add( $label_1,                0, Wx::LEFT | Wx::RIGHT | Wx::ALIGN_CENTER_VERTICAL, 8 );
 
127
        $sizer_8->Add( $self->{key_box},        0, Wx::ALIGN_CENTER_VERTICAL,                        0 );
 
128
        $sizer_2->Add( $sizer_8,                1, Wx::EXPAND,                                       0 );
129
129
        my $line_2 = Wx::StaticLine->new(
130
130
                $self,
131
131
                -1,
132
 
                Wx::wxDefaultPosition,
133
 
                Wx::wxDefaultSize,
 
132
                Wx::DefaultPosition,
 
133
                Wx::DefaultSize,
134
134
        );
135
 
        $sizer_2->Add( $line_2, 0, Wx::wxTOP | Wx::wxBOTTOM | Wx::wxEXPAND, 5 );
136
 
        $self->{button_sizer}->Add( $self->{ok},     1, 0,          0 );
137
 
        $self->{button_sizer}->Add( $self->{cancel}, 1, Wx::wxLEFT, 5 );
138
 
        $sizer_2->Add( $self->{button_sizer}, 1, Wx::wxALIGN_RIGHT,        5 );
139
 
        $sizer_1->Add( $sizer_2,              1, Wx::wxALL | Wx::wxEXPAND, 5 );
 
135
        $sizer_2->Add( $line_2, 0, Wx::TOP | Wx::BOTTOM | Wx::EXPAND, 5 );
 
136
        $self->{button_sizer}->Add( $self->{ok},     1, 0,        0 );
 
137
        $self->{button_sizer}->Add( $self->{cancel}, 1, Wx::LEFT, 5 );
 
138
        $sizer_2->Add( $self->{button_sizer}, 1, Wx::ALIGN_RIGHT,      5 );
 
139
        $sizer_1->Add( $sizer_2,              1, Wx::ALL | Wx::EXPAND, 5 );
140
140
        $self->SetSizer($sizer_1);
141
141
        $sizer_1->Fit($self);
142
142