#!/usr/bin/perl -w
use Tk;
my $mw=MainWindow->new;
$mw->title("frequences ver 0.1" );
 
#creer un boutton pour quitter l'application
my $menu_bar=$mw->Frame(-background=>'gray')->
 pack(-side=>'top',-fill=>'x');
my $file_mb=$menu_bar->Menubutton(-text=>'File',
   -background=>'gray',
   -activebackground=>'black',
   -foreground=>'black',
   -activeforeground=>'white'
   )->
 pack(-side=>'left');
$file_mb->command(-label=>'Exit',-activebackground=>'black',
 -foreground=>'white',
 -command=> sub { exit });
 
#cree les frames
my $f0=$mw->Frame(-background=>'blue')->pack(-side=>'top', -fill=>'x');
my $ck0=$f0->Checkbutton(-text=>"...." )->pack(-side=>'left');
my $sa0=$f0->Entry(-width=>20,-justify=>'center',-background=>'white')->pack(-side=>'right');
...
my $fa4=$mw->Frame(-background=>'blue')->pack(-side=>'top', -fill=>'x');
my $cka4=$fa4->Checkbutton(-text=>"...." )->pack(-side=>'left');
my $saa4=$fa4->Entry(-width=>20,-justify=>'center',-background=>'white')->pack(-side=>'right');
 
 
$mw->Label(-text=>".....",
  -justify=>'center')->pack(-side=>'bottom');
 
MainLoop;