#!/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; |