Discussion :

[hauru]

Bonjour, voici l'entry que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
	my $entryText = $frame->Entry(
		-width           => 20,
		-background      => 'white',
		-textvariable    => \$choice,
		-validate        => "key",
		-validatecommand => sub {$self->setChoice(value => $choice);
					$self->buttonActivation();},
	)->pack( -side => 'left', -padx => 10, );

Le but de ce programme est d'activer ou non un certain bouton suivant la valeur qui est ecrite dans l'entry.
Le problème c'est que le dernier charactère tappé n'est pas ecrit dans $choice car il sert a valider la commande (je suppose).


exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ecrire t donnera dans $choice 
ecrire tr donnera dans $choice t
ecrire tru donnera dans $choice tr
ecrire truc donnera dans $choice tru
ecrire trucs donnera dans $choice truc

J'ai besoin de -validate pour effectuer la recherche à chaque caractére ecrit.
Comment peut-on contourner ce problème afin d'avoir le champ complet?

[djibril]

Bonjour,

N'utiliser jamais les deux options suivantes en même temps : -textvariable et -validatecommand (recommandation de l'auteur du module : Tk::Entry, voir section VALIDATION).

Il faut utiliser les arguments reçus par -validatecommand , exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use warnings;
use strict;
use Tk;   
 
my $fenetre = new MainWindow(
  -title      => 'Première fenêtre Tk',
  -background => 'white',
);
  my $choice;
my $entryText = $fenetre->Entry(
		-width           => 20,
		-background      => 'white',
		-validate        => "key",
		-takefocus       => 1,
    -validatecommand => sub {
      my ($valeur_entry, $caractere_ajoute, $valeur_courante_avant_validate, $index, $type_action) = @_;
      print "TEXTE : $valeur_entry, $caractere_ajoute, $valeur_courante_avant_validate, $index, $type_action\n";
    },
)->pack( );
$entryText->focus;

Avec votre code, ça fera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
my $entryText = $frame->Entry(
		-width           => 20,
		-background      => 'white',
		-validate        => 'key',
		-validatecommand => sub {
      my ($choice) = @_;
      $self->setChoice(value => $choice);
			$self->buttonActivation();
    },
)->pack( -side => 'left', -padx => 10, );

[hauru]

Merci pour cette réponse qui répond complètement à mon problème