← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/FBP/Text.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/Text.pm
1
 
package Padre::Wx::FBP::Text;
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
 
                '',
29
 
                Wx::wxDefaultPosition,
30
 
                [ 300, 300 ],
31
 
                Wx::wxDEFAULT_DIALOG_STYLE | Wx::wxRESIZE_BORDER,
32
 
        );
33
 
 
34
 
        $self->{text} = Wx::TextCtrl->new(
35
 
                $self,
36
 
                -1,
37
 
                "",
38
 
                Wx::wxDefaultPosition,
39
 
                Wx::wxDefaultSize,
40
 
                Wx::wxTE_MULTILINE,
41
 
        );
42
 
        $self->{text}->SetMinSize( [ 250, 250 ] );
43
 
 
44
 
        my $m_staticline1 = Wx::StaticLine->new(
45
 
                $self,
46
 
                -1,
47
 
                Wx::wxDefaultPosition,
48
 
                Wx::wxDefaultSize,
49
 
                Wx::wxLI_HORIZONTAL,
50
 
        );
51
 
 
52
 
        $self->{close} = Wx::Button->new(
53
 
                $self,
54
 
                Wx::wxID_CANCEL,
55
 
                Wx::gettext("Close"),
56
 
                Wx::wxDefaultPosition,
57
 
                Wx::wxDefaultSize,
58
 
        );
59
 
        $self->{close}->SetDefault;
60
 
 
61
 
        my $buttons = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
62
 
        $buttons->Add( 20, 0, 1, Wx::wxEXPAND, 5 );
63
 
        $buttons->Add( $self->{close}, 0, Wx::wxALL, 5 );
64
 
 
65
 
        my $vsizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
66
 
        $vsizer->Add( $self->{text}, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
67
 
        $vsizer->Add( $m_staticline1, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
68
 
        $vsizer->Add( $buttons, 0, Wx::wxEXPAND, 5 );
69
 
 
70
 
        my $hsizer = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
71
 
        $hsizer->Add( $vsizer, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
72
 
 
73
 
        $self->SetSizer($hsizer);
74
 
        $self->Layout;
75
 
 
76
 
        return $self;
77
 
}
78
 
 
79
 
sub text {
80
 
        $_[0]->{text};
81
 
}
82
 
 
83
 
sub close {
84
 
        $_[0]->{close};
85
 
}
86
 
 
87
 
1;
88
 
 
89
 
# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
90
 
# LICENSE
91
 
# This program is free software; you can redistribute it and/or
92
 
# modify it under the same terms as Perl 5 itself.
93
 
 
 
1
package Padre::Wx::FBP::Text;
 
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
                '',
 
29
                Wx::DefaultPosition,
 
30
                [ 300, 300 ],
 
31
                Wx::DEFAULT_DIALOG_STYLE | Wx::RESIZE_BORDER,
 
32
        );
 
33
 
 
34
        $self->{text} = Wx::TextCtrl->new(
 
35
                $self,
 
36
                -1,
 
37
                "",
 
38
                Wx::DefaultPosition,
 
39
                Wx::DefaultSize,
 
40
                Wx::TE_MULTILINE,
 
41
        );
 
42
        $self->{text}->SetMinSize( [ 250, 250 ] );
 
43
 
 
44
        my $m_staticline1 = Wx::StaticLine->new(
 
45
                $self,
 
46
                -1,
 
47
                Wx::DefaultPosition,
 
48
                Wx::DefaultSize,
 
49
                Wx::LI_HORIZONTAL,
 
50
        );
 
51
 
 
52
        $self->{close} = Wx::Button->new(
 
53
                $self,
 
54
                Wx::ID_CANCEL,
 
55
                Wx::gettext("Close"),
 
56
                Wx::DefaultPosition,
 
57
                Wx::DefaultSize,
 
58
        );
 
59
        $self->{close}->SetDefault;
 
60
 
 
61
        my $buttons = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
62
        $buttons->Add( 20, 0, 1, Wx::EXPAND, 5 );
 
63
        $buttons->Add( $self->{close}, 0, Wx::ALL, 5 );
 
64
 
 
65
        my $vsizer = Wx::BoxSizer->new(Wx::VERTICAL);
 
66
        $vsizer->Add( $self->{text}, 1, Wx::ALL | Wx::EXPAND, 5 );
 
67
        $vsizer->Add( $m_staticline1, 0, Wx::ALL | Wx::EXPAND, 5 );
 
68
        $vsizer->Add( $buttons, 0, Wx::EXPAND, 5 );
 
69
 
 
70
        my $hsizer = Wx::BoxSizer->new(Wx::HORIZONTAL);
 
71
        $hsizer->Add( $vsizer, 1, Wx::ALL | Wx::EXPAND, 5 );
 
72
 
 
73
        $self->SetSizer($hsizer);
 
74
        $self->Layout;
 
75
 
 
76
        return $self;
 
77
}
 
78
 
 
79
sub text {
 
80
        $_[0]->{text};
 
81
}
 
82
 
 
83
sub close {
 
84
        $_[0]->{close};
 
85
}
 
86
 
 
87
1;
 
88
 
 
89
# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
 
90
# LICENSE
 
91
# This program is free software; you can redistribute it and/or
 
92
# modify it under the same terms as Perl 5 itself.
 
93