try
sub Main_Resize {return 0;}

That is supposed to cancel the default behavior of the resize function.
Well, that's what it says on the box ;-) If it doesn't work, try

$resizing = 0;
sub Main_Resize
{
        unless ($resizing++)
        {
                $Main->Change (-size => [800, 574]);}
                $resizing = 0;
        }
        return 1;
}

that would at least have it snap back after resizing.
Note the flag to prevent an endless loop and note return 1 because the last
command was $resizing = 0 and you shouldn't do that ... even though this is
only needed when the above doesn't work, which was ... returning 0 ... oboy
...



> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Sent: Monday, April 22, 2002 18:52
> To: Peter Eisengrein
> Cc: perl-win32-gui-users@lists.sourceforge.net
> Subject: RE: [perl-win32-gui-users] status bar
> 
> 
> 
> i don't think thats what i'm trying to do. i'll explain. i 
> have a window
> that 800x574 (cuts off just above the taskbar). i've disabled 
> the maximise
> button and the window isn't resizable. i decided to put a 
> status bar down
> the bottom cos otherwise it just looked really ugly but i can 
> resize the
> window using the status bar. the status bar servers no 
> function its just
> there to look pretty and i don't want it to be able to resize 
> the window.
> hope thats a little clearer.
> 
> thanx
> 
> 
> 
> 
>                                                               
>                                                       
>                     Peter Eisengrein                          
>                                                       
>                     <[EMAIL PROTECTED]>                
>     To:     "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>,  
>                     Sent by:                                  
>     perl-win32-gui-users@lists.sourceforge.net        
>                     [EMAIL PROTECTED]    
>     cc:                                               
>                     eforge.net                                
>     Subject:     RE: [perl-win32-gui-users] status    
>                                                               
>     bar                                               
>                                                               
>                                                       
>                     23/04/02 01:26 AM                         
>                                                       
>                                                               
>                                                       
>                                                               
>                                                       
> 
> 
> 
> 
> 
> In your _Resize sub do not resize the status bar, just move 
> it (so that
> it's always at the bottom). If you do nothing then it will 
> always hold its
> original position which is probably not what you want.
> 
> $Window->Status->Move(0, 
> $Window->ScaleHeight-$Window->Status->Height);
> 
> 
> 
> 
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> > Sent: Sunday, April 21, 2002 20:14
> > To: perl-win32-gui-users@lists.sourceforge.net
> > Subject: [perl-win32-gui-users] status bar
> >
> >
> > is there any way to stop a status bar from being able to be resized?
> > thanx
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Perl-Win32-GUI-Users@lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
> 
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

Reply via email to