$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(); }