$root->bind('<Configure>', sub {
                                  my $w = shift;
                                  print $w->Width . " and " . $w->Height . "\n";
                                  &redo_layout();
                                 };