Tk::Spinbox et -validatecommand

Version imprimable

[Il semblerait que le problème décrit ci-dessous soit un bug dans la librairie Tk]

Bonjour,

Voici quelques heures que je passe sur ces problèmes: rien n'y fait. Dans le code qui suit:
~~1/ la -vcmd n'est plus invoquée à partir du moment où elle a retourné une fois 0;~~ < Il suffit de reconfigurer -validate => "all" a posteriori;
2/ la -vcmd n'empêche pas la valeur de la spinbox de changer;
3/ -invcmd n'est jamais appelé;
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 #!/usr/bin/perl -w use strict; use Tk; my $mw = MainWindow->new(-title => "spinbox test"); my $spinbox1 = $mw->Spinbox( -width => 2, -value => [1 .. 100], -validate => "all", )->pack; $spinbox1->configure(-vcmd => [\&validate1, $spinbox1]); $spinbox1->configure(-invcmd => sub {print STDERR "oops" }); sub validate1 { my ($spinbox, $new, $discard, $old) = @_; return 0 if $new == 5; print STDERR "$spinbox: $old -> $new\n"; return 1; } MainLoop();
~~J'ai essayé de vérifier que l'option -validate redevenait bien "all" après chaque invocation de la -vcmd, mais sans succès.~~

Une idée?

Merci de votre aide!

09/05/2012, 11h48
djibril

Bonjour,

C'est un comportement normal bien expliqué dans la documentation du module Tk::Spinbox ;).

Citation:

Option: -validatecommand
Alias: -vcmd
Name: validateCommand
Class: ValidateCommand

Specifies a script to evaluate when you want to validate the input in the widget. Setting it to an empty string disables this feature (the default). Validation occurs according to the value of -validate. This command must return a valid boolean value. If it returns 0 (or the valid boolean equivalent) then the value of the widget will not change and the invalidCommand will be evaluated if it is set. If it returns 1, then value will be changed. See Validation below for more information.

Donc, retourner zéro dans votre cas n'est pas judicieux. laissez return 1;Voilà !
09/05/2012, 12h15
Nicolas M

Merci, mais je me suis certainement mal exprimé. En l'occurrence, j'aimerais:
- que la valeur de la spinbox ne change pas si la nouvelle valeur n'est pas validée;
- qu'invcmd soit évalué à ce moment.

Et ça ne fonctionne pas...

Si je laisse "return 1" dans tous les cas, comment montrer que la valeur n'est pas acceptable? Comment déclencher un callback dans ce cas?
09/05/2012, 12h25
djibril

euh, je comprends pas ce que vous voulez.
Il me faudrait un exemple !
09/05/2012, 12h29
Nicolas M

Voir le code du post original: je veux que la valeur 5 soit impossible dans la spinbox et qu'essayer de la fixer déclenche l'-invcmd.
09/05/2012, 12h32
djibril

En gros, vous souhaitez que le 5 déclenche ceci : print STDERR "oops" ?
09/05/2012, 13h09
Nicolas M

Oui, c'est bien cela.
Mais j'aimerais aussi que cette valeur n'apparaisse jamais dans la Spinbox.
09/05/2012, 13h46
djibril

Citation:

Envoyé par Nicolas M

Mais j'aimerais aussi que cette valeur n'apparaisse jamais dans la Spinbox.

Pas possible, c'est toi qu'il a mis -value => [1 .. 100],.

Moi, je ferais ça

Code:

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
#!/usr/bin/perl
use warnings;
use strict;		
use Tk;
 
my $mw = MainWindow->new(-title => "spinbox test");
my $spinbox1 = $mw->Spinbox(
		-width => 20,
	 	-value => [1 .. 100],
		-validate => 'all',
	)->pack;
$spinbox1->configure(-vcmd => \&validate1);
 
sub validate1 {
  my ($proposed_value, $character_add_deleted, $current_value, $index, $type_action) = @_;
	if ( $proposed_value == 5 ) {
      erreur($proposed_value);
      return 1;
  }
 
  print "$current_value -> $proposed_value\n";
	return 1;
}
 
sub erreur {
  my ($value) = @_;
 
  print STDERR "oup's : $value\n";
	return 1;
}
 
MainLoop();

09/05/2012, 13h56
Nicolas M

Citation:

Envoyé par djibril

Pas possible, c'est toi qu'il a mis -value => [1 .. 100],.

Ok, merci, mais je souhaitais tirer parti de

Citation:

If it returns 0 (or the valid boolean equivalent) then the value of the widget will not change

Je vais changer dynamiquement "-value(s)" ou adopter la solution proposée (merci).

Cependant, cela ne résout pas l'autre partie du problème (à savoir que -invcmd n'est jamais évalué).
09/05/2012, 14h32
djibril

J'ai l'impression que -invcmd bogue. Il n'a pas l'air de fonctionner.
09/05/2012, 14h47
Nicolas M

Oui, on dirait bien.
En outre, même en changeant dynamiquement -values, je ne peux pas faire en sorte qu'une valeur soit interdite. Je vais essayer de tout mettre dans "-command", mais les arguments reçus par le callback sont vraiment peu satisfaisants.
09/05/2012, 14h50
djibril

Citation:

Envoyé par Nicolas M

En outre, même en changeant dynamiquement -values.

C'est à dire ?
Si tu ne veux pas mettre 5, ne le met pas tout simplement.
09/05/2012, 14h58
Nicolas M

Le code est simplifié ici: les valeurs interdites changent en fonction des manipulations de l'utilisateur.

J'ai essayé de changer -values durant le processus de validation, mais sans succès.
10/05/2012, 10h27
Nicolas M

J'ai contourné le problème en mettant tout le processus de validation dans "-cmd".

C'est moyennement satisfaisant, mais ça marche.