vinothjaguva has asked for the wisdom of the Perl Monks concerning the following question:

Hi

How to Destroy the childs in wxperl->Wx window.

I have menu with few names test1, test2, test3, test4. If i select test1, in the parent widow i have to create a button with the text download and upload. If i select test2, in the parent window i have to create button with the text start stop. Using the below i can able to create, but if i select test2, the test1 information is also there in the window. I want to remove/destroy the test1 screen information.

use base 'Wx::Panel';
use Wx qw(:sizer :misc :id); 
use Wx::Event qw(EVT_BUTTON); 
sub new {
 my $ref = shift;
  my $parent = shift;
   my $self = $ref->SUPER::new($parent, wxID_ANY, wxDefaultPosition, w
+xDefaultSize);  
    $self->{sizer} = Wx::StaticBoxSizer->new(    Wx::StaticBox->new($s
+elf, -1, 'Box label'), wxHORIZONTAL);
    
    $self->{button} = Wx::Button->new($self, -1, 'Button'); 
    $self->{sizer}->Add($self->{button}, 1, wxEXPAND | wxALL, 10); 
    EVT_BUTTON($self, $self->{button}, \&click); 
    
    $self->SetSizerAndFit($self->{sizer}); 
    
    return $self; 
    
}

sub click { Wx::MessageBox('Click!'); }

[download]

Thanks in Advance

Replies are listed 'Best First'.
Re: Wxperl child window destroy
by Anonymous Monk on Sep 14, 2011 at 07:49 UTC

    Using the below i can able to create, but if i select test2, the test1 information is also there in the window. I

    Maybe you can try Destroying tes1... before creating test2?

[reply]
Re: Wxperl child window destroy
by Anonymous Monk on Sep 14, 2011 at 12:08 UTC
    In the panel that needs to change, store each set of widgets in their own panels and ->Show() and ->Hide() them as needed.
[reply]
[d/l]
[select]
      I'm trying something similar but hiding and showing pannels is not working. If I create two panels, hide the first one and show the second one only a small piece of the first panel is shown. I think the first panel is overlapping in some way. How do I fix this? See included code. 
      #!perl -w
use Wx;
#######################################
#
#
package MyApp;
#
#
#######################################
use strict;
use vars qw(@ISA);
@ISA = qw(Wx::App);

# the OnInit method is called
sub OnInit {
    my($this) = @_;
    my($frame) = MyFrame->new( undef, -1, "Test window", [600, 400], [
+400, 600] );

    $frame->Show(1);

    $this->SetTopWindow($frame);

    # if OnInit doesn't return true, the application exits immediately
+.
    return 1;
}

#######################################
#
#
package MyFrame;
#
#
#######################################
#
#   This package overrides Wx::Frame, and allows us to put controls
#   in the frame.
#
use strict;
use vars qw(@ISA);
@ISA = qw(Wx::Frame);

sub new {

    my( $class ) = shift;
    my( $this ) = $class->SUPER::new( @_ );

    # starter variables for 'x' and 'y' position
    my $xstart = 5;
    my $ystart = 5;

    my %panel;
    # Create panel: 'First'
    $panel{'first'} = Wx::Panel->new( $this, 
                                         -1, 
                                    );
                                
    # create panel 1 static text
    Wx::StaticText->new( $panel{'first'},
                         -1,             
                         'First panel',  
                         [$xstart, $ystart]
                       );  

    $panel{'first'}->Hide();                                          
+               
                       
    # Create panel: 'Second'
    $panel{'second'} = Wx::Panel->new( $this,
                                          -1,
                                     );
    
    # create panel 2 static text
    Wx::StaticText->new( $panel{'second'},   
                         -1,                 
                         'Second panel',     
                         [$xstart, $ystart]  
                        );  

    $panel{'second'}->Show();
    
    return $this;
}

package main;
my($app) = MyApp->new();
$app->MainLoop();

      [download]
[reply]
[d/l]

        You need to use a sizer like this 

        #!/usr/bin/perl --
use strict; use warnings; 
use Wx 0.86 qw(  );
our %panel;

Main( @ARGV );
exit( 0 );
sub Main {
    my $app = Wx::SimpleApp->new;
    my $frame   = Wx::Frame->new( undef, -1,  "Test window", [ 10, 10 
+], [ 400, 600 ], Wx::wxDEFAULT_FRAME_STYLE()|Wx::wxTAB_TRAVERSAL() );

    MakePanels( $frame );

    my $ShowHideButton = Wx::Button->new( $frame, -1, q[Show(first)/Hi
+de(second)] );
    Wx::Event::EVT_BUTTON( $frame, $ShowHideButton, \&ShowHidePanels, 
+);
    
    
    
    $frame->SetSizer( Wx::BoxSizer->new( Wx::wxVERTICAL() ) );
    $frame->GetSizer->Add( $ShowHideButton, 0, Wx::wxEXPAND() );
    $frame->GetSizer->Add( $panel{first},   1, Wx::wxEXPAND() );
    $frame->GetSizer->Add( $panel{second}, 1, Wx::wxEXPAND() );
    
    
    

    $frame->Show(1);
    $app->SetTopWindow($frame);
    $app->MainLoop;
} ## end sub Main

sub MakePanels {
    my( $frame ) = @_;
    $panel{'first'} = Wx::Panel->new( $frame, -1, [ -1, -1 ], [ -1, -1
+ ], );
    $panel{'first'}->SetBackgroundColour( Wx::wxRED() );
    $panel{'first'}->Hide();
    Wx::StaticText->new( $panel{'first'}, -1, 'First panel', );
    
    $panel{'second'} = Wx::Panel->new( $frame, -1, [ -1, -1 ], [ -1, -
+1 ], );
    $panel{'second'}->Show();
    $panel{'second'}->SetBackgroundColour( Wx::wxBLUE()  );
    Wx::StaticText->new( $panel{'second'}, -1, 'Second panel' );
    
    return;
} ## end sub MakePanels

sub ShowHidePanels {
    my ( $frame, $event ) = @_;
    my $button = $event->GetEventObject;
    my $label  = $button->GetLabel();
    if ( $label eq 'Show(first)/Hide(second)' ) {
        $label = 'Hide(first)/Show(second)';
        $panel{first}->Show();
        $panel{second}->Hide();
        $frame->GetSizer->Layout(); ##!!!!
    } else {
        $label = 'Show(first)/Hide(second)';
        $panel{first}->Hide();
        $panel{second}->Show();
        $frame->GetSizer->Layout(); ##!!!!
    }
    $button->SetLabel($label);
} ## end sub ShowHidePanels

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom