Discussion :

[djblind]

Bonjour à tous.

Je suis non-voyant, et débutant en langage perl.

J'utilise un logiciel de revu d'écran appelé JAWS.

J'ai un petit Script perl Tk, qui renvoi dans un print dans la consol la touche qui a été pressée.

J'ai un soucis avec la touche f10.
Mon script renvoi bien la touche, mais la bar de menu de windows s'ouvre sur ma fenêtre Tk.

J'aurai besoin d'une âme charitable pour régler ce problème!!
merci par avance!

Voici mon script.

Code :

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

1
2
3
4
5
6
7
8
use Tk; 
$mw = MainWindow->new;
 
$mw->bind("<Key>", [ sub {
print "Touche : $_[1]\n";
 }, 
                     Ev('K')] ); 
MainLoop;

[djibril]

Bonsoir,
J'ai fait le même test :

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
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
 
use Tk;
my $mw = MainWindow->new;
 
$mw->bind(
	"<Key>",
	[
		sub {
			print "Touche : $_[1]\n";
		},
		Ev('K')
	]
);
 
MainLoop;

et j'ai le résultat suivant :

Touche : 0
Touche : 1
Touche : 2
Touche : 3
Touche : 4
Touche : 5
Touche : 6
Touche : 7
Touche : 8
Touche : 9
Touche : F1
Touche : F2
Touche : F3
Touche : F4
Touche : F5
Touche : F6
Touche : F7
Touche : F8
Touche : F9
Touche : F10
Touche : L1
Touche : L2

L1 et L2 pour F11 et F12. Il faut bien positionner la souris à l'intérieur de la fenêtre Tk. Sinon, est-ce un clavier particulier ? Il est peut-être paramétré différemment non ?

Cordialement,

[djblind]

Bonjour, merci de la réponce.

J'utilise un clavier azerty standar.
Il y aurai un moyen avec Tk de placer le curseur de la souris sur la fenêtre Tk?
Je peux manipuler le focus avec mon logiciel revu d'écran, mais pour la souris, c'est plus compliqué de savoir où on se trouve.

cordialement

[djibril]

Bonsoir,

en fait, je me suis mal exprimé. Ce n'est pas un souci de placement de souris mais de focus. Il faut bien que la fenêtre Tk ait bien le focus, ce qui est le cas par défaut au lancement.
On peut le forcer avec le code $mw->focus;Néanmoins, cela ne résoud pas le souci car j'ai un comportement bizarre chez moi.

Si je lance le programme en ligne de commande et je tape les touche F1 à F10, ça fonctionne par contre, F11 et F12 ne répondent pas. Je bouge la souris, sur la fenêtre voir clic dessus et là F11 et F12 fonctionnent.
Mais ça ne répond pas toujours correctement, je n'ai pas de solutions pour le moment, j'essayerai de chercher quand j'aurais un peu plus de temps.

[djblind]

Bonjour, de mon coté j'ai ajouté $mw->focus; mais quand je fait F10, la touche F10 est bien affiché, mais la bar de menu s'ouvre. et F11 et F12 ne fonctionne pas.

[djblind]

Il y a vraiment un soucis qui est même aléatoire. j'ai retirer la ligne qui force le focus, et la même F11 et f12 ne sont retourné, alors qu'ils l'étaient avant. Il y a effectivement quelque-chose d'étrange