wxperl-users

[wxperl-users] Maximize

[roger <rug...@ya...>]

Hi,
I try to maximize a window with :

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

I copied the code from one example... but dont' work
I want open the application maximized.
Any suggestion??
Thanks
Ruggero.


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

[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;
}