Fwd: Wx wights view in Linux (RedHat4) Vs. Windows- Try again can somebody help

[Lioz Cohn]

---------- Forwarded message ----------
From: Lioz Cohn <liozcoh...@gmail.com>
Date: Tue, Sep 14, 2010 at 1:45 PM
Subject: Wx wights view in Linux (RedHat4) Vs. Windows
To: wxperl-users@perl.org


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