Re: TK Geometry Management

[thundergnat]

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;
}