#!/usr/bin/perl

use Tk;

# geometrie
my ($width, $height) = (1024, 768); 
# couleurs
my $frame1color = 'yellow';
my $frame1Xcolor = 'red';
my $frame1XXcolor = 'orange';

my $mw = MainWindow->new;
$mw->geometry($width.'x'.$height);
$mw->title('IvyMon');

my $frame1 =
    $mw->Frame(-background => $frame1color)->pack(-fill => 'both', -expand => 1);

my $frame11 =
    $frame1->Frame(-background => $frame1Xcolor)->pack(-fill => 'both', -expand => 1,
						      -padx => 5, -pady => 5);

my $frame111clients =
    $frame11->Frame(-background => $frame1XXcolor,
		    -width => 150)->pack(-fill => 'both',
					 -padx => 10,
					 -pady => 10,
					 -side => 'left',
					 -expand => 0);
my $frame112messages =
    $frame11->Frame(-background => $frame1XXcolor,
		    -relief => 'sunken',
		    -bd => 5)->pack(-fill => 'both',
							 -padx => 10,
							 -pady => 10,
							 -side => 'right',
							 -expand => 1);

my $frame12bindings =
    $frame1->Frame(-background => $frame1Xcolor,
  		   -height => 100)->pack(-fill => 'both',
 					 -padx => 5,
  					 -pady => 5,
					 -side => 'bottom',
  					 -expand => 0);

$frame112messages->Text(-state => 'disabled')->pack(-fill => 'both',
						    -expand => 1);

MainLoop;