Changeset 9355 for trunk/Padre-Plugin-wxGlade/t/sample/Dialogs.pl

Timestamp:

11/30/09 22:16:31 (2 years ago)

Author:

adamk

Message:

Completed the WXG file object, but not entirely sure if I'm going to need it yet. Better to just implement it while everything is fresh in my head.

File:

• trunk/Padre-Plugin-wxGlade/t/sample/Dialogs.pl (modified) (1 diff)

trunk/Padre-Plugin-wxGlade/t/sample/Dialogs.pl

@@ -5 +5 @@
 use Wx 0.15 qw[:allclasses];
 use strict;
+
+package MyDialog4;
+
+use Wx qw[:everything];
+use base qw(Wx::Dialog);
+use strict;
+
+sub new {
+    my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_;
+    $parent = undef              unless defined $parent;
+    $id     = -1                 unless defined $id;
+    $title  = ""                 unless defined $title;
+    $pos    = wxDefaultPosition  unless defined $pos;
+    $size   = wxDefaultSize      unless defined $size;
+    $name   = ""                 unless defined $name;
+
+# begin wxGlade: MyDialog4::new
+
+    $style = wxDEFAULT_DIALOG_STYLE 
+        unless defined $style;
+
+    $self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
+    $self->{warning_label} = Wx::StaticText->new($self, -1, "See http://padre.perlide.org/ for update information", wxDefaultPosition, wxDefaultSize, wxALIGN_CENTRE);
+    $self->{warning_checkbox} = Wx::CheckBox->new($self, -1, "Do not show this again", wxDefaultPosition, wxDefaultSize, );
+    $self->{line_1} = Wx::StaticLine->new($self, -1, wxDefaultPosition, wxDefaultSize, );
+    $self->{ok_button} = Wx::Button->new($self, wxID_OK, "");
+
+    $self->__set_properties();
+    $self->__do_layout();
+
+# end wxGlade
+    return $self;
+
+}
+
+
+sub __set_properties {
+    my $self = shift;
+
+# begin wxGlade: MyDialog4::__set_properties
+
+    $self->SetTitle("Warning");
+
+# end wxGlade
+}
+
+sub __do_layout {
+    my $self = shift;
+
+# begin wxGlade: MyDialog4::__do_layout
+
+    $self->{sizer_4} = Wx::BoxSizer->new(wxHORIZONTAL);
+    $self->{sizer_5} = Wx::BoxSizer->new(wxVERTICAL);
+    $self->{sizer_6} = Wx::BoxSizer->new(wxHORIZONTAL);
+    $self->{sizer_5}->Add($self->{warning_label}, 0, 0, 0);
+    $self->{sizer_5}->Add($self->{warning_checkbox}, 0, wxTOP|wxEXPAND, 5);
+    $self->{sizer_5}->Add($self->{line_1}, 0, wxTOP|wxBOTTOM|wxEXPAND, 5);
+    $self->{sizer_6}->Add($self->{ok_button}, 0, 0, 0);
+    $self->{sizer_5}->Add($self->{sizer_6}, 1, wxALIGN_CENTER_HORIZONTAL, 5);
+    $self->{sizer_4}->Add($self->{sizer_5}, 1, wxALL|wxEXPAND, 5);
+    $self->SetSizer($self->{sizer_4});
+    $self->{sizer_4}->Fit($self);
+    $self->Layout();
+
+# end wxGlade
+}
+
+# end of class MyDialog4
+
+1;
 
 package MyFrame;