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

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Dialog/SessionSave.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:
6
6
use Padre::Wx       ();
7
7
use Padre::Wx::Icon ();
8
8
 
9
 
our $VERSION = '0.90';
 
9
our $VERSION = '0.92';
10
10
our @ISA     = 'Wx::Dialog';
11
11
 
12
12
use Class::XSAccessor {
29
29
                $parent,
30
30
                -1,
31
31
                Wx::gettext('Save session as...'),
32
 
                Wx::wxDefaultPosition,
33
 
                Wx::wxDefaultSize,
34
 
                Wx::wxDEFAULT_FRAME_STYLE | Wx::wxTAB_TRAVERSAL,
 
32
                Wx::DefaultPosition,
 
33
                Wx::DefaultSize,
 
34
                Wx::DEFAULT_FRAME_STYLE | Wx::TAB_TRAVERSAL,
35
35
        );
36
36
        $self->SetIcon(Padre::Wx::Icon::PADRE);
37
37
 
155
155
        my $self = shift;
156
156
 
157
157
        # create sizer that will host all controls
158
 
        my $box = Wx::BoxSizer->new(Wx::wxVERTICAL);
 
158
        my $box = Wx::BoxSizer->new(Wx::VERTICAL);
159
159
        my $sizer = Wx::GridBagSizer->new( 5, 5 );
160
160
        $sizer->AddGrowableCol(1);
161
 
        $box->Add( $sizer, 1, Wx::wxEXPAND | Wx::wxALL, 5 );
 
161
        $box->Add( $sizer, 1, Wx::EXPAND | Wx::ALL, 5 );
162
162
        $self->_sizer($sizer);
163
163
 
164
164
        $self->_create_fields;
205
205
        my $lab1 = Wx::StaticText->new( $self, -1, Wx::gettext('Session name:') );
206
206
        my $combo = Wx::ComboBox->new( $self, -1, $Current_Session );
207
207
        $sizer->Add( $lab1, Wx::GBPosition->new( 0, 0 ) );
208
 
        $sizer->Add( $combo, Wx::GBPosition->new( 0, 1 ), Wx::GBSpan->new( 1, 3 ), Wx::wxEXPAND );
 
208
        $sizer->Add( $combo, Wx::GBPosition->new( 0, 1 ), Wx::GBSpan->new( 1, 3 ), Wx::EXPAND );
209
209
        $self->_combo($combo);
210
210
        Wx::Event::EVT_COMBOBOX( $self, $combo, \&_on_combo_item_selected );
211
211
        Wx::Event::EVT_TEXT( $self, $combo, \&_on_combo_text_changed );
214
214
        my $lab2 = Wx::StaticText->new( $self, -1, Wx::gettext('Description:') );
215
215
        my $text = Wx::TextCtrl->new( $self, -1, '' );
216
216
        $sizer->Add( $lab2, Wx::GBPosition->new( 1, 0 ) );
217
 
        $sizer->Add( $text, Wx::GBPosition->new( 1, 1 ), Wx::GBSpan->new( 1, 3 ), Wx::wxEXPAND );
 
217
        $sizer->Add( $text, Wx::GBPosition->new( 1, 1 ), Wx::GBSpan->new( 1, 3 ), Wx::EXPAND );
218
218
        $self->_text($text);
219
219
}
220
220
 
231
231
        my $sizer = $self->_sizer;
232
232
 
233
233
        # the buttons
234
 
        my $bs = Wx::Button->new( $self, Wx::wxID_OK,     Wx::gettext('Save') );
235
 
        my $bc = Wx::Button->new( $self, Wx::wxID_CANCEL, Wx::gettext('Close') );
 
234
        my $bs = Wx::Button->new( $self, Wx::ID_OK,     Wx::gettext('Save') );
 
235
        my $bc = Wx::Button->new( $self, Wx::ID_CANCEL, Wx::gettext('Close') );
236
236
        Wx::Event::EVT_BUTTON( $self, $bs, \&_on_butsave_clicked );
237
237
        Wx::Event::EVT_BUTTON( $self, $bc, \&_on_butclose_clicked );
238
238
        $sizer->Add( $bs, Wx::GBPosition->new( 2, 2 ) );