Hi to all I run the following code in windows and in Linux RedHat4, in windows it run correctly but in Linux some of the widgets disappeared
can somebody advice me ? Please find attached code file. Thanks in advance Lioz #!/usr/bin/perl use strict; use warnings; ############################################################################# ## ## ## Copyright: (c) The Padre development team ## Licence: This program is free software; you can redistribute it and/or ## modify it under the same terms as Perl itself ############################################################################# my $app = Demo::ListView->new; $app->MainLoop; ##################### package Demo::ListView; use strict; use warnings; use base 'Wx::App'; sub OnInit { my $frame = Demo::Frame->new; $frame->Show(1); } ##################### package Demo::Frame; use strict; use warnings; use Wx ':everything'; use Wx::Event ':everything'; use Wx qw(:radiobutton :font wxDefaultPosition wxDefaultSize); use Wx::Event qw(EVT_RADIOBUTTON EVT_BUTTON); use Wx::Event qw(EVT_RADIOBOX); use base 'Wx::Frame'; my $combo_selected_option =undef; sub new { my ($class) = @_; my $self = $class->SUPER::new( undef, -1, 'Notebook ', [ -1, -1 ], [ 750, 700 ], ); $self->SetIcon( Wx::GetWxPerlIcon()); # # Creating the notebook with tabs (also called panes) my $nb = Wx::Notebook->new( $self, -1, wxDefaultPosition, wxDefaultSize, wxNO_FULL_REPAINT_ON_RESIZE | wxCLIP_CHILDREN ); my $rb11 = Wx::RadioButton->new( $nb, -1, "Radio&10,300", [10, 300], wxDefaultSize,,wxRB_GROUP ); my $rb21 = Wx::RadioButton->new( $nb, -1, "Radio&20,300", [10, 330] ); my $combo_choices = [ 'This', 'is one of my', 'really', 'wonderful', 'examples', ]; my $comboBox = Wx::ComboBox->new( $nb, -1,"lable combo", [10, 400], [-1, -1],$combo_choices); my $radioBoxchoices = ['first','seconed','third']; my $radiobox = Wx::RadioBox->new ( $nb, -1, "Radio box", [400, 400], wxDefaultSize, $radioBoxchoices, 3, wxRA_SPECIFY_COLS ); EVT_RADIOBOX( $self , $radiobox, \&OnRadio ); sub OnRadio { my ( $self, $event ) = @_; Wx::LogMessage( join '', "RadioBox selection string is: ", $event->GetString() ); } my $wizard = Wx::Wizard->new( $self, -1, "Wizard test" ); # first page my $page1 = Wx::WizardPageSimple->new( $wizard ); Wx::TextCtrl->new( $page1, -1, "First page" ); # second page my $page2 = Wx::WizardPageSimple->new( $wizard ); Wx::TextCtrl->new( $page2, -1, "Second page",[0,0],[1000,40] ); ###($self, -1, "", n, wxDefaultSize, wxTE_MULTILINE); Wx::WizardPageSimple::Chain( $page1, $page2 ); EVT_RADIOBUTTON ( $self, $rb11, sub { my ( $self, $event ) = @_; print "printing to STDOUT\n"; print STDERR "printing to STDERR\n"; $wizard->RunWizard( $page1 ); ##Wx::MessageBox( "This Radio Button 1 was selected", "Title", wxOK | wxCENTRE, $self ); } ); EVT_WIZARD_PAGE_CHANGED( $self, $wizard, sub { Wx::LogMessage( "Wizard page changed" ); } ); # creating the content of the first tab my $editor = Wx::TextCtrl->new( $nb, -1, '', Wx::wxDefaultPosition, Wx::wxDefaultSize, wxTE_MULTILINE | wxNO_FULL_REPAINT_ON_RESIZE ); # add first tab $nb->AddPage( $editor, 'Editor', 0); $rb11->SetValue(0); $rb21->SetValue(0); my $choices = [ 'This example', 'was borrowed', 'from an example', 'Hi David ', 'How are you ?' ]; my $listbox = Wx::ListBox->new( $nb, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, $choices ); $listbox->SetBackgroundColour( wxWHITE); $nb->AddPage( $listbox, 'Listbox', 1 ); EVT_LISTBOX_DCLICK( $self, $listbox, \&on_listbox_double_click ); EVT_RADIOBUTTON($self, $rb11, \&OnRadioButton_Daphna); EVT_BUTTON ( $self, $rb11, sub { my ( $self, $event ) = @_; print "printing to STDOUT\n"; print STDERR "printing to STDERR\n"; Wx::MessageBox( "This is the smell of an Onion", "Title", wxOK | wxCENTRE, $self ); } ); EVT_RADIOBUTTON( $self, $rb21, \&OnRadioButton_Sel2 ); EVT_COMBOBOX( $self, $comboBox, \&OnCombo); return $self; } sub OnRadioButton_Daphna{ my( $self, $event ) = @_; print "printing to STDOUT\n"; print STDERR "printing to STDERR\n"; Wx::MessageBox( "Using Radio Button 1 ", "Title", wxOK | wxCENTRE, $self); } sub on_listbox_double_click { my ( $self, $event ) = @_; Wx::MessageBox( "Double clicked: '" . $event->GetString() . "", '', Wx::wxOK | Wx::wxCENTRE, $self ); } sub OnRadioButton_Sel2 { my( $self, $event ) = @_; $self->radiobut1_2->SetValue( 1 ); } sub OnCombo { my( $self, $event ) = @_; $combo_selected_option = $event->GetString(); Wx::LogMessage( join '', "ComboBox event selection string is: '", $event->GetString(), "'" ); } sub add_to_tags { qw(managed) } sub title { 'wxWizard' }
wizard1.pl
Description: Binary data