#!/usr/bin/perl --

use warnings;
use strict;
use Tk;


my $mw = tkinit;


my $topframe = $mw->Frame(-bg=>'yellow')->grid( -row => 2, -column => 2 );

$topframe->Button( -text => "But 0 0")->grid( -row => 0, -column => 0 );
$topframe->Button( -text => "But 1 1")->grid( -row => 1, -column => 1 );

my $other = $topframe->Frame(-bg=>'red')->grid( -row => 2, -column => 0 );
$other->Button( -text => "Oth 0 0")->grid( -row => 0, -column => 0 );
$other->Button( -text => "Oth 1 1")->grid( -row => 1, -column => 1 );
$other->Button( -text => "Oth 2 0")->grid( -row => 2, -column => 0 );



$mw->MainLoop;