To get , natural geometry, that disregards a users resizing, that doesn't change position on screen, use undef

$mw->geometry( undef );
[download]

I'm still not a monkey, play along

sure; I don't blame anyone in being a monkey. Just thought adding more code would clobber...

I tried the $mw->geometry(undef); this works great when hiding the to be hidden widgets. So far so good.
But then when restoring the hidden, they are restored to their 'required' width and height, rather than those they had when they were 'packForgotten'.
This seems to be the effect of the $mw->geometry(undef); call

There is a diff between:


  $mw_w     = $mw->width;
  $mw_h     = $mw->height;
[download]

and


  $mw_w     = $mw->reqwidth;
  $mw_h     = $mw->reqheight;
[download]

After many tries I found a solution (?) by remembering the geometry of the MW when hiding:


  $mw_geom = $mw->geometry();
[download]

and restoring this when re-packing:


  $mw->geometry($mw_geom);
[download]

So I can add that to my code in some way or another. Only thing is that I do not understand it yet ;-(

What you can also add is code to watch for the resize event, occuring while the Frames are unpacked. You can keep a running array of the current window size.

It seems to me that repacking your children into larger frames might be accomplished by using -fill=>both -expand=>1 in the packing, and then calling the packPropagate command.... but that is untested.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
my $mw = new MainWindow;

my $current_size = $mw->reqwidth . "x" . $mw->reqheight;
my $old_current_size = $current_size;

$mw->bind( '<Configure>', sub{ &OnResize });

my $leave = 0;
$mw->bind( '<Leave>',sub { $leave = 1; } );

$mw->bind( '<Enter>',sub { $leave = 0; 
                           &OnResize;
             } );

MainLoop;

sub OnResize {
      
    my $current_size = $mw->width . "x" . $mw->height;
    if( $leave == 1) {return }
    if($old_current_size eq $current_size){return}


     ## Resize has occurred do something:
     printf( "Resize happened - old size: %s, new size: %s\n",
                             $old_current_size, $current_size );
    ## set the old size to the new size
    $old_current_size = $current_size;
}
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

But pls try this:

No thanks, I'm no monkey. If you have modified my program, post the new program :)