Here's another example for comparison. (with some added silliness.) The frames grow/shrink when you resize the main window.

use warnings;
use strict;
use Tk;

my %w;

$w{mw} = MainWindow->new;

my ($initial_height, $initial_width) = (60, 100);

my @quadrants = qw/tl tr bl br/;
my @color = qw/red yellow green orange blue black white/;

{
    my ($row, $col) = (0,0);

    for my $frame (@quadrants){
        $w{frame}{$frame} =  $w{mw}->Frame(
             -borderwidth => 3,
             -relief => 'groove',
             -height => $initial_height,
             -width => $initial_width,
        )->grid(
          -row => $row,
          -column => $col,
          -sticky => 'nsew'
        );
        $w{frame}{$frame}->bind('<Configure>', \&update_frames);
        $col++;
        $row++ unless $col %= 2;
    }
}

$w{mw}->repeat(150,
  sub {
    $w{frame}{$quadrants[rand @quadrants]}->
    configure(-background => $color[rand @color])
  }
);

MainLoop;

sub update_frames{
    return if $w{updating};
    $w{updating} = 1;
    my ($w,$h) = split /[x+]/, $w{mw}->geometry;
    for my $frame (qw/tl tr bl br/){
        $w{frame}{$frame}->configure(
             -width => $w / 2 - 2,
             -height => $h / 2 - 2
        )
    }
    $w{mw}->update;
    $w{updating} = 0;
}

[download]

In reply to Re: TK Geometry Management by thundergnat
in thread TK Geometry Management by shortyfw06

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.