Discussion :

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

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