[wxperl-users] Re:Maximize

[Veena R. <raj...@oh...>]

This worked for me.
Dont know if this is the best way

use Wx qw(wxMAXIMIZE wxMINIMIZE_BOX wxMAXIMIZE_BOX =20
   wxSYSTEM_MENU wxCAPTION );

sub OnInit{
    my $self =3D shift;
    my $frame =3D MyFrame->new(undef,-1,'Test',[100,100],[-1,-1],
                                                     wxMINIMIZE_BOX | =
wxMAXIMIZE_BOX | wxSYSTEM_MENU | wxCAPTION |wxMAXIMIZE);



     $self->SetTopWindow($frame);
=20
    $frame->Show(1);
}


Thanks
Veena Rajaraman

-------------------------------------------------------------------------
I try to maximize a window with :

sub OnInit {
  my( $this ) =3D shift;
=20
  my( $frame ) =3D MyFrame->new( "Minimal wxPerl app",
                               wxDefaultPosition,
                               [450, 350]
                             );
  =20
  $frame->Show( 1 );
  $this->SetTopWindow( $frame );
  $frame->Maximize(1);
  return 1;
}