1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
#!C:\Perl\bin\perl.exe -w
use Tk ;
my $texte = "";
my $mot = "";
my @tableau=("manger","parler","il","nager","marcher","clavier","brahim","maison");
sub Test{
if ($texte eq "" ) {$mot=" ";} #cette ligne ne sert à rien, si ce n'est que lorsque je ne la met pas, le prog affiche le dernier mot, "maison"
#dans le label lorsqu'il ne trouve rien.
else{
for ($i=0;$i<=$#tableau;$i++){
if ($tableau[$i] =~m/^$texte/) {$mot=$tableau[$i];}
}
}
return 1;
}
sub QuitterApplication
{
exit ( 0 ) ;
}
# Programme principal
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( "Application 10" ) ;
$message = $fenetre -> Label ( -textvariable => \$mot) ;
$zone_saisie = $fenetre -> Entry ( -textvariable => \$texte ,
-validate => 'key',
-validatecommand => \&Test,
-bg => 'yellow') ;
$btn_quitter = $fenetre -> Button ( -text => 'Quitter' , -command => \&QuitterApplication ) ;
$message -> pack ( ) ;
$zone_saisie -> pack ( ) ;
$btn_quitter -> pack ( ) ;
MainLoop ( ) ; |
Partager