Tk::Spinbox et -validatecommand [Résolu]

[Nicolas M]

[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!

[djibril]

Bonjour,

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

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à !

[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?

[djibril]

euh, je comprends pas ce que vous voulez.
Il me faudrait un exemple !

[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.

[djibril]

En gros, vous souhaitez que le 5 déclenche ceci : print STDERR "oops" ?

[Nicolas M]

Oui, c'est bien cela.
Mais j'aimerais aussi que cette valeur n'apparaisse jamais dans la Spinbox.

[djibril]

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],.

[djibril]

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();

[Nicolas M]

Envoyé par djibril

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

Ok, merci, mais je souhaitais tirer parti de

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é).

[djibril]

J'ai l'impression que -invcmd bogue. Il n'a pas l'air de fonctionner.

[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.

[djibril]

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.

[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.

[Nicolas M]

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

C'est moyennement satisfaisant, mais ça marche.