fair enough...
Below is some example code.
If you run that, you can check and uncheck the checkboxes and the window will resize to fit the contents.

But if you uncheck the enable A checkbox, then manually resize the window a tiny bit in the +Y direction. Then recheck the enable A checkbox, the auto resize will stop and it will push the exit button off the visible window.

I don't know what handles that automatic resizing. So I don't even know where to look. But somehow it gets turned off, and I would like to turn it back on.
I would expect if I could turn it back on that it would add space or remove space equal to the size of the widget getting packed or unpacked, since that is what it seems to do before a manual user resize.

I could of course take over the resizing operation in my code, for everything that gets packed and unpacked, but in the real case, that would be a ton of stuff, and not practical. Which is why I am looking to turn the auto resizer back on. It is really kind of a crop or fit function...

#!/usr/bin/perl
use strict;
use Tk;

our ($goMainWindow);
our (%ghGuiObjs);
our (%ghGuiCBVars);

$| = 1;
&main();

sub main {
  buildGui();
  MainLoop;
} #end sub main

sub updateA {
  if ( $ghGuiCBVars{"nEnableFrameA"} == 1 ) {
    $ghGuiObjs{"oContainerA"}->pack();
  } else {
    $ghGuiObjs{"oContainerA"}->packForget();
  }
}

sub updateB {
  if ( $ghGuiCBVars{"nEnableFrameB"} == 1 ) {
    $ghGuiObjs{"oContainerB"}->pack();
  } else {
    $ghGuiObjs{"oContainerB"}->packForget();
  }
}

sub buildGui {
  $goMainWindow = new MainWindow;

  my ($oLabel) = $goMainWindow->Label(
                      -text => "This is my example",
                      )->pack(
                      -padx => '5',
                      -pady => '5',
                      -expand => '1',
                      -fill => 'x',
                      );
  my ($oCbA) = $goMainWindow->Checkbutton(
                      -text => 'Enable A',
                      -variable => \$ghGuiCBVars{"nEnableFrameA"},
                      -command => \&updateA,
                      -anchor => 'w',
                     );
  $ghGuiCBVars{"nEnableFrameA"} = 1;
  my ($oFrameA) = $goMainWindow->Labelframe(
                      -labelwidget => $oCbA,
                      )->pack(
                      -padx => '5',
                      -expand => '1',
                      -fill => 'both',
                      );
  my ($oContainerFrameA) = $oFrameA->Frame(
                      )->pack(
                      -expand => '1',
                      -fill => 'both',
                      -pady => '5',
                      );
  $ghGuiObjs{"oContainerA"} = $oContainerFrameA;
  my ($oLbA) = $oContainerFrameA->Listbox(
                      -relief => 'groove',
                      -borderwidth => '5',
                      -height => '5',
                      )->pack(
                      -fill => 'both',
                      -expand => '1',
                      );


  my ($oCbB) = $goMainWindow->Checkbutton(
                      -text => 'Enable B',
                      -variable => \$ghGuiCBVars{"nEnableFrameB"},
                      -command => \&updateB,
                      -anchor => 'w',
                     );
  $ghGuiCBVars{"nEnableFrameB"} = 1;
  my ($oFrameB) = $goMainWindow->Labelframe(
                      -labelwidget => $oCbB,
                      )->pack(
                      -padx => '5',
                      -expand => '1',
                      -fill => 'both',
                      );
  my ($oContainerFrameB) = $oFrameB->Frame(
                      )->pack(
                      -expand => '1',
                      -fill => 'both',
                      -pady => '5',
                      );
  $ghGuiObjs{"oContainerB"} = $oContainerFrameB;
  my ($oLbB) = $oContainerFrameB->Listbox(
                      -relief => 'groove',
                      -borderwidth => '5',
                      -height => '5',
                      )->pack(
                      -fill => 'both',
                      -expand => '1',
                      );

  my ($oExit) = $goMainWindow->Button(-text => 'Exit',
                      -command => sub{exit},
                     )->pack(
                      -padx => '5',
                      -pady => '5',
                      -side => 'bottom',
                     );

}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.