http://qs1969.pair.com?node_id=942196


in reply to Re^3: resizing problem with Tk appl using PackForget
in thread resizing problem with Tk appl using PackForget

I like the packArgs trick. Also easy to add an arg to the sub for selecting one of the options.

the canvas within this BANG app resizes fine for each of the chosen packArgs.

But pls try this:
* split the PackForget() and pack() over 2 buttons (show, hide) one containing the packForget, the other the pack
* start the app, and resize the main window
* then hit 'hide'

The canvas and mainwindow are not resized.
I seem to be missing the point about the resizing through a call to geometry. Can't find a hint in the docs either.
  • Comment on Re^4: resizing problem with Tk appl using PackForget

Replies are listed 'Best First'.
Re^5: resizing problem with Tk appl using PackForget
by Anonymous Monk on Dec 07, 2011 at 10:06 UTC

    But pls try this:

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

[reply]
Re^5: resizing problem with Tk appl using PackForget
by Anonymous Monk on Dec 07, 2011 at 11:33 UTC

    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

[reply]
[d/l]
      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 ;-(
[reply]
[d/l]
[select]
        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
[reply]
[d/l]

In Section Seekers of Perl Wisdom