← Back to branch summary

~ubuntu-branches/ubuntu/raring/padre/raring

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/FBP/Bookmarks.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/FBP/Bookmarks.pm
1
 
package Padre::Wx::FBP::Bookmarks;
2
 
 
3
 
## no critic
4
 
 
5
 
# This module was generated by Padre::Plugin::FormBuilder::Perl.
6
 
# To change this module edit the original .fbp file and regenerate.
7
 
# DO NOT MODIFY THIS FILE BY HAND!
8
 
 
9
 
use 5.008;
10
 
use strict;
11
 
use warnings;
12
 
use Padre::Wx ();
13
 
use Padre::Wx::Role::Main ();
14
 
 
15
 
our $VERSION = '0.90';
16
 
our @ISA     = qw{
17
 
        Padre::Wx::Role::Main
18
 
        Wx::Dialog
19
 
};
20
 
 
21
 
sub new {
22
 
        my $class  = shift;
23
 
        my $parent = shift;
24
 
 
25
 
        my $self = $class->SUPER::new(
26
 
                $parent,
27
 
                -1,
28
 
                Wx::gettext("Bookmarks"),
29
 
                Wx::wxDefaultPosition,
30
 
                Wx::wxDefaultSize,
31
 
                Wx::wxDEFAULT_DIALOG_STYLE,
32
 
        );
33
 
 
34
 
        $self->{set_label} = Wx::StaticText->new(
35
 
                $self,
36
 
                -1,
37
 
                Wx::gettext("Set Bookmark") . ":",
38
 
        );
39
 
        $self->{set_label}->Hide;
40
 
 
41
 
        $self->{set} = Wx::TextCtrl->new(
42
 
                $self,
43
 
                -1,
44
 
                "",
45
 
                Wx::wxDefaultPosition,
46
 
                Wx::wxDefaultSize,
47
 
        );
48
 
        $self->{set}->Hide;
49
 
 
50
 
        $self->{set_line} = Wx::StaticLine->new(
51
 
                $self,
52
 
                -1,
53
 
                Wx::wxDefaultPosition,
54
 
                Wx::wxDefaultSize,
55
 
                Wx::wxLI_HORIZONTAL,
56
 
        );
57
 
        $self->{set_line}->Hide;
58
 
 
59
 
        $self->{m_staticText2} = Wx::StaticText->new(
60
 
                $self,
61
 
                -1,
62
 
                Wx::gettext("Existing Bookmarks") . ":",
63
 
        );
64
 
 
65
 
        $self->{list} = Wx::ListBox->new(
66
 
                $self,
67
 
                -1,
68
 
                Wx::wxDefaultPosition,
69
 
                Wx::wxDefaultSize,
70
 
                [],
71
 
                Wx::wxLB_NEEDED_SB | Wx::wxLB_SINGLE,
72
 
        );
73
 
 
74
 
        my $m_staticline1 = Wx::StaticLine->new(
75
 
                $self,
76
 
                -1,
77
 
                Wx::wxDefaultPosition,
78
 
                Wx::wxDefaultSize,
79
 
                Wx::wxLI_HORIZONTAL,
80
 
        );
81
 
 
82
 
        $self->{ok} = Wx::Button->new(
83
 
                $self,
84
 
                Wx::wxID_OK,
85
 
                Wx::gettext("OK"),
86
 
                Wx::wxDefaultPosition,
87
 
                Wx::wxDefaultSize,
88
 
        );
89
 
        $self->{ok}->SetDefault;
90
 
 
91
 
        $self->{delete} = Wx::Button->new(
92
 
                $self,
93
 
                -1,
94
 
                Wx::gettext("&Delete"),
95
 
                Wx::wxDefaultPosition,
96
 
                Wx::wxDefaultSize,
97
 
        );
98
 
 
99
 
        Wx::Event::EVT_BUTTON(
100
 
                $self,
101
 
                $self->{delete},
102
 
                sub {
103
 
                        shift->delete_clicked(@_);
104
 
                },
105
 
        );
106
 
 
107
 
        $self->{delete_all} = Wx::Button->new(
108
 
                $self,
109
 
                -1,
110
 
                Wx::gettext("Delete &All"),
111
 
                Wx::wxDefaultPosition,
112
 
                Wx::wxDefaultSize,
113
 
        );
114
 
 
115
 
        Wx::Event::EVT_BUTTON(
116
 
                $self,
117
 
                $self->{delete_all},
118
 
                sub {
119
 
                        shift->delete_all_clicked(@_);
120
 
                },
121
 
        );
122
 
 
123
 
        my $cancel = Wx::Button->new(
124
 
                $self,
125
 
                Wx::wxID_CANCEL,
126
 
                Wx::gettext("Cancel"),
127
 
                Wx::wxDefaultPosition,
128
 
                Wx::wxDefaultSize,
129
 
        );
130
 
 
131
 
        my $existing = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
132
 
        $existing->Add( $self->{m_staticText2}, 0, Wx::wxALL, 5 );
133
 
 
134
 
        my $buttons = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
135
 
        $buttons->Add( $self->{ok}, 0, Wx::wxALL, 5 );
136
 
        $buttons->Add( $self->{delete}, 0, Wx::wxALL, 5 );
137
 
        $buttons->Add( $self->{delete_all}, 0, Wx::wxALL, 5 );
138
 
        $buttons->Add( 20, 0, 1, Wx::wxEXPAND, 5 );
139
 
        $buttons->Add( $cancel, 0, Wx::wxALL, 5 );
140
 
 
141
 
        my $vsizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
142
 
        $vsizer->Add( $self->{set_label}, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxLEFT | Wx::wxRIGHT | Wx::wxTOP, 5 );
143
 
        $vsizer->Add( $self->{set}, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
144
 
        $vsizer->Add( $self->{set_line}, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
145
 
        $vsizer->Add( $existing, 1, Wx::wxEXPAND, 5 );
146
 
        $vsizer->Add( $self->{list}, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
147
 
        $vsizer->Add( $m_staticline1, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
148
 
        $vsizer->Add( $buttons, 0, Wx::wxEXPAND, 5 );
149
 
 
150
 
        $self->{sizer} = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
151
 
        $self->{sizer}->Add( $vsizer, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
152
 
 
153
 
        $self->SetSizerAndFit($self->{sizer});
154
 
        $self->Layout;
155
 
 
156
 
        return $self;
157
 
}
158
 
 
159
 
sub set_label {
160
 
        $_[0]->{set_label};
161
 
}
162
 
 
163
 
sub set {
164
 
        $_[0]->{set};
165
 
}
166
 
 
167
 
sub set_line {
168
 
        $_[0]->{set_line};
169
 
}
170
 
 
171
 
sub list {
172
 
        $_[0]->{list};
173
 
}
174
 
 
175
 
sub ok {
176
 
        $_[0]->{ok};
177
 
}
178
 
 
179
 
sub delete {
180
 
        $_[0]->{delete};
181
 
}
182
 
 
183
 
sub delete_all {
184
 
        $_[0]->{delete_all};
185
 
}
186
 
 
187
 
sub delete_clicked {
188
 
        $_[0]->main->error('Handler method delete_clicked for event delete.OnButtonClick not implemented');
189
 
}
190
 
 
191
 
sub delete_all_clicked {
192
 
        $_[0]->main->error('Handler method delete_all_clicked for event delete_all.OnButtonClick not implemented');
193
 
}
194
 
 
195
 
1;
196
 
 
197
 
# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
198
 
# LICENSE
199
 
# This program is free software; you can redistribute it and/or
200
 
# modify it under the same terms as Perl 5 itself.
201
 
 
 
1
package Padre::Wx::FBP::Bookmarks;
 
2
 
 
3
## no critic
 
4
 
 
5
# This module was generated by Padre::Plugin::FormBuilder::Perl.
 
6
# To change this module edit the original .fbp file and regenerate.
 
7
# DO NOT MODIFY THIS FILE BY HAND!
 
8
 
 
9
use 5.008;
 
10
use strict;
 
11
use warnings;
 
12
use Padre::Wx ();
 
13
use Padre::Wx::Role::Main ();
 
14
 
 
15
our $VERSION = '0.92';
 
16
our @ISA     = qw{
 
17
        Padre::Wx::Role::Main
 
18
        Wx::Dialog
 
19
};
 
20
 
 
21
sub new {
 
22
        my $class  = shift;
 
23
        my $parent = shift;
 
24
 
 
25
        my $self = $class->SUPER::new(
 
26
                $parent,
 
27
                -1,
 
28
                Wx::gettext("Bookmarks"),
 
29
                Wx::DefaultPosition,
 
30
                Wx::DefaultSize,
 
31
                Wx::DEFAULT_DIALOG_STYLE,
 
32
        );
 
33
 
 
34
        $self->{set_label} = Wx::StaticText->new(
 
35
                $self,
 
36
                -1,
 
37
                Wx::gettext("Set Bookmark") . ":",
 
38
        );
 
39
        $self->{set_label}->Hide;
 
40
 
 
41
        $self->{set} = Wx::TextCtrl->new(
 
42
                $self,
 
43
                -1,
 
44
                "",
 
45
                Wx::DefaultPosition,
 
46
                Wx::DefaultSize,
 
47
        );
 
48
        $self->{set}->Hide;
 
49
 
 
50
        $self->{set_line} = Wx::StaticLine->new(
 
51
                $self,
 
52
                -1,
 
53
                Wx::DefaultPosition,
 
54
                Wx::DefaultSize,
 
55
                Wx::LI_HORIZONTAL,
 
56
        );
 
57
        $self->{set_line}->Hide;
 
58
 
 
59
        $self->{m_staticText2} = Wx::StaticText->new(
 
60
                $self,
 
61
                -1,
 
62
                Wx::gettext("Existing Bookmarks") . ":",
 
63
        );
 
64
 
 
65
        $self->{list} = Wx::ListBox->new(
 
66
                $self,
 
67
                -1,
 
68
                Wx::DefaultPosition,
 
69
                Wx::DefaultSize,
 
70
                [],
 
71
                Wx::LB_NEEDED_SB | Wx::LB_SINGLE,
 
72
        );
 
73
 
 
74
        my $m_staticline1 = Wx::StaticLine->new(
 
75
                $self,
 
76
                -1,
 
77
                Wx::DefaultPosition,
 
78
                Wx::DefaultSize,
 
79
                Wx::LI_HORIZONTAL,
 
80
        );
 
81
 
 
82
        $self->{ok} = Wx::Button->new(
 
83
                $self,
 
84
                Wx::ID_OK,
 
85
                Wx::gettext("OK"),
 
86
                Wx::DefaultPosition,
 
87
                Wx::DefaultSize,
 
88
        );
 
89
        $self->{ok}->SetDefault;
 
90
 
 
91
        $self->{delete} = Wx::Button->new(
 
92
                $self,
 
93
                -1,
 
94
                Wx::gettext("&Delete"),
 
95
                Wx::DefaultPosition,
 
96
                Wx::DefaultSize,
 
97
        );
 
98
 
 
99
        Wx::Event::EVT_BUTTON(
 
100
                $self,
 
101
                $self->{delete},
 
102
                sub {
 
103
                        shift->delete_clicked(@_);
 
104
                },
 
105
        );
 
106
 
 
107
        $self->{delete_all} = Wx::Button->new(
 
108
                $self,
 
109
                -1,
 
110
                Wx::gettext("Delete &All"),
 
111
                Wx::DefaultPosition,
 
112
                Wx::DefaultSize,
 
113
        );
 
114
 
 
115
        Wx::Event::EVT_BUTTON(
 
116
                $self,
 
117
                $self->{delete_all},
 
118
                sub {
 
119
                        shift->delete_all_clicked(@_);
 
120
                },
 
121
        );
 
122
 
 
123
        my $cancel = Wx::Button->new(
 
124
                $self,
 
125
                Wx::ID_CANCEL,
 
126
                Wx::gettext("Cancel"),
 
127
                Wx::DefaultPosition,
 
128
                Wx::DefaultSize,
 
129
        );
 
130
 
 
131
        my $existing = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
132
        $existing->Add( $self->{m_staticText2}, 0, Wx::ALL, 5 );
 
133
 
 
134
        my $buttons = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
135
        $buttons->Add( $self->{ok}, 0, Wx::ALL, 5 );
 
136
        $buttons->Add( $self->{delete}, 0, Wx::ALL, 5 );
 
137
        $buttons->Add( $self->{delete_all}, 0, Wx::ALL, 5 );
 
138
        $buttons->Add( 20, 0, 1, Wx::EXPAND, 5 );
 
139
        $buttons->Add( $cancel, 0, Wx::ALL, 5 );
 
140
 
 
141
        my $vsizer = Wx::BoxSizer->new(Wx::VERTICAL);
 
142
        $vsizer->Add( $self->{set_label}, 0, Wx::ALIGN_CENTER_VERTICAL | Wx::LEFT | Wx::RIGHT | Wx::TOP, 5 );
 
143
        $vsizer->Add( $self->{set}, 0, Wx::ALL | Wx::EXPAND, 5 );
 
144
        $vsizer->Add( $self->{set_line}, 0, Wx::ALL | Wx::EXPAND, 5 );
 
145
        $vsizer->Add( $existing, 1, Wx::EXPAND, 5 );
 
146
        $vsizer->Add( $self->{list}, 0, Wx::ALL | Wx::EXPAND, 5 );
 
147
        $vsizer->Add( $m_staticline1, 0, Wx::ALL | Wx::EXPAND, 5 );
 
148
        $vsizer->Add( $buttons, 0, Wx::EXPAND, 5 );
 
149
 
 
150
        $self->{sizer} = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
151
        $self->{sizer}->Add( $vsizer, 1, Wx::ALL | Wx::EXPAND, 5 );
 
152
 
 
153
        $self->SetSizerAndFit($self->{sizer});
 
154
        $self->Layout;
 
155
 
 
156
        return $self;
 
157
}
 
158
 
 
159
sub set_label {
 
160
        $_[0]->{set_label};
 
161
}
 
162
 
 
163
sub set {
 
164
        $_[0]->{set};
 
165
}
 
166
 
 
167
sub set_line {
 
168
        $_[0]->{set_line};
 
169
}
 
170
 
 
171
sub list {
 
172
        $_[0]->{list};
 
173
}
 
174
 
 
175
sub ok {
 
176
        $_[0]->{ok};
 
177
}
 
178
 
 
179
sub delete {
 
180
        $_[0]->{delete};
 
181
}
 
182
 
 
183
sub delete_all {
 
184
        $_[0]->{delete_all};
 
185
}
 
186
 
 
187
sub delete_clicked {
 
188
        $_[0]->main->error('Handler method delete_clicked for event delete.OnButtonClick not implemented');
 
189
}
 
190
 
 
191
sub delete_all_clicked {
 
192
        $_[0]->main->error('Handler method delete_all_clicked for event delete_all.OnButtonClick not implemented');
 
193
}
 
194
 
 
195
1;
 
196
 
 
197
# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
 
198
# LICENSE
 
199
# This program is free software; you can redistribute it and/or
 
200
# modify it under the same terms as Perl 5 itself.
 
201