$main->AddButton( -text => 'example_button', onClick => sub { print "Hello World";
####
$main->checkbox->GetCheck;
####
my @list = $input->multiline_textinput->Text();
####
use Wx qw[:everything];
use base qw(Wx::Frame);
use strict;
use Wx::Locale gettext => '_T';
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: MyFrame1::new
$style = wxDEFAULT_FRAME_STYLE
unless defined $style;
$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
$self->{panel_1} = Wx::Panel->new($self, wxID_ANY, wxDefaultPosition, wxDefaultSize, );
$self->{radio_btn_1} = Wx::RadioButton->new($self->{panel_1}, wxID_ANY, _T("radio_btn_1"), wxDefaultPosition, wxDefaultSize, );
$self->{checkbox_1} = Wx::CheckBox->new($self->{panel_1}, wxID_ANY, _T("checkbox_1"), wxDefaultPosition, wxDefaultSize, );
$self->{combo_box_1} = Wx::ComboBox->new($self->{panel_1}, wxID_ANY, "", wxDefaultPosition, wxDefaultSize, [], wxCB_DROPDOWN);
$self->{button_1} = Wx::Button->new($self->{panel_1}, wxID_ANY, _T("button_1"));
$self->__set_properties();
$self->__do_layout();
Wx::Event::EVT_BUTTON($self, $self->{button_1}->GetId, \&mycode);
# end wxGlade
return $self;
}
sub __set_properties {
my $self = shift;
# begin wxGlade: MyFrame1::__set_properties
$self->SetTitle(_T("frame_2"));
$self->{combo_box_1}->SetSelection(-1);
# end wxGlade
}
sub __do_layout {
my $self = shift;
# begin wxGlade: MyFrame1::__do_layout
$self->{sizer_1} = Wx::BoxSizer->new(wxVERTICAL);
$self->{sizer_2} = Wx::BoxSizer->new(wxHORIZONTAL);
$self->{sizer_2}->Add($self->{radio_btn_1}, 0, 0, 0);
$self->{sizer_2}->Add($self->{checkbox_1}, 0, 0, 0);
$self->{sizer_2}->Add($self->{combo_box_1}, 0, 0, 0);
$self->{sizer_2}->Add($self->{button_1}, 0, 0, 0);
$self->{panel_1}->SetSizer($self->{sizer_2});
$self->{sizer_1}->Add($self->{panel_1}, 1, wxEXPAND, 0);
$self->SetSizer($self->{sizer_1});
$self->{sizer_1}->Fit($self);
$self->Layout();
# end wxGlade
}
sub mycode {
my ($self, $event) = @_;
# wxGlade: MyFrame1::mycode
print "\n\n\nHello World\n\n\n";
warn "Event handler (mycode) not implemented";
$event->Skip;
# end wxGlade
}
# end of class MyFrame1
1;
1;
package main;
unless(caller){
my $local = Wx::Locale->new("English"); # replace with ??
$local->AddCatalog("app"); # replace with the appropriate catalogname
local *Wx::App::OnInit = sub{1};
my $app = Wx::App->new();
Wx::InitAllImageHandlers();
my $frame_1 = MyFrame1->new();
$app->SetTopWindow($frame_1);
$frame_1->Show(1);
$app->MainLoop();
}