wonderful. the second one worked.


                                                                                
                  
                    "Piske, Harald"                                             
                  
                    <[EMAIL PROTECTED]        To:     "'[EMAIL PROTECTED]'" 
<[EMAIL PROTECTED]>   
                    lobal.com>                  cc:                             
                  
                                                
perl-win32-gui-users@lists.sourceforge.net        
                    23/04/02 12:53 PM           Subject:     RE: 
[perl-win32-gui-users] status    
                                                bar                             
                  
                                                                                
                  



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