Discussion :

[Mersenne]

Bonjour.
Je travaille sous Windows XP. J'ai téléchargé hier ActivePerl et Tk.
J'aurais cru que dans le petit programme qui suit, la commande

Code :

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

1
2
 
tagAdd('sel', '1.0', 'end')

aurait pour effet de sélectionner les caractères écrits dans le widget Text, mais ce n'est pas le cas. Quelqu'un sait-il pourquoi ?

Merci d'avance.

(Note : si vous voulez copier et exécuter ce programme, enregistrez-le en Utf8 ou supprimez la ligne "use utf8;".)

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
use Tk;
use strict;
use utf8;
use warnings;
 
my $mw = MainWindow->new;
 
my $hauteurEcran = $mw->screenheight();
my $largeurEcran = $mw->screenwidth();
 
$mw->configure(
               -width => $largeurEcran,
               -height => $hauteurEcran,
);
 
 
$mw->title("Test sélection");
$mw->geometry(sprintf("%d",$largeurEcran) . "x" . sprintf("%d", $hauteurEcran) . "+0+0");
$mw->raise();
 
 
 
 
my $zoneTexte = $mw->Scrolled('Text',
                           -scrollbars => 'se',
                           -wrap => 'word',
                         )->place(
                           -anchor => 'nw',
                           -width => $largeurEcran,
                           -relheight => 0.95,
                           -relx => 0.0,
                           -rely => 0.05,
                          );
 
$zoneTexte->insert('end', "abc");
$zoneTexte->tagAdd('sel', '1.0', 'end');
 
MainLoop;

[djibril]

Normalement,

Code :

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

tagAdd('sel', '1.0', '1.0 lineend');

Mais impossible à faire fonctionner, bizarre

[Mersenne]

Merci pour la réponse. On dirait donc que c'est un bug. Servirait-il à quelque chose de le signaler aux responsables (d'ActivePerl ou de Tk) ?

[djibril]

Ouais, faut voir s'il n'y a pas autre chose qu'on a mal saisi.
Car même la méthode selectAll ne donne rien.

[Mersenne]

Pas étonnant, vu cette définition de SelectAll :

Code :

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

1
2
3
4
5
6
 
sub selectAll
{
 my ($w) = @_;
 $w->tagAdd('sel','1.0','end');
}

trouvée ici : http://troy.jdmz.net/perltk/Text.pm.orig.txt

[djibril]

Bon sinon que voulais tu faire concrètement ? Quel était ton but en forçant la sélection ?

[Mersenne]

Bon sinon que voulais tu faire concrètement ? Quel était ton but en forçant la sélection ?

Faire des tests sur le comportement de la sélection. Notamment voir si la sélection d'un widget Text disparaît quand un MessageBox s'affiche. Je fais des programmes qui recherchent des chaînes de caractère suspectes dans des éditeurs de texte et qui, s'ils en trouvent une, la sélectionnent et envoient un MessageBox ou autre pop-up qui demande à l'utilisateur, au vu de la sélection, de choisir entre corriger, passer outre ou s'arrêter. Le problème est qu'il y a quelques années, cela ne semblait pas aller, parce que le pop-up faisait disparaître la sélection du widget Text (même si on mettait l'option ExportSelection du Text sur zéro). J'ai voulu voir si cela n'irait pas mieux avec une version récente de Tk, mais on dirait que c'est pire... (Je reviens à Perl Tk après quelques années, je crois, mais il me semble que, dans le temps, un programme comme celui que j'ai posté réussissait...)

[djibril]

Pourquoi ne par créer un marqueur qui te permettrait de colorier les textes qui seraient suspects et de le mettre en gras. Çà te permettrait de les retrouver facilement s'ils sont dispatchés à plusieurs endroits.

[Mersenne]

Pourquoi ne par créer un marqueur qui te permettrait de colorier les textes qui seraient suspects et de le mettre en gras. Çà te permettrait de les retrouver facilement s'ils sont dispatchés à plusieurs endroits.

C'est aimable d'essayer de résoudre mon problème, je vais peut-être essayer cette solution, mais le bug que je pense avoir constaté ne me donne pas une grande confiance dans Perl Tk. Actuellement, on utilise des macros en VBA qui font le travail dans Word. Vu ma mauvaise expérience avec Perl Tk, je crois que je ne vais pas remuer ciel et terre et que je vais en rester au VBA. Merci tout de même.

[djibril]

Dommage car je trouve qu'on fait énormément de chose en Perl Tk, mais bon.
Ne te décourages pas vite .

[djibril]

Je viens de trouver une solution, mais je ne sais pas si c'est un comportement normal.
Essaye de donner le focus à ton widget text, et là ça passe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $zoneTexte = $mw->Scrolled('Text',
                           -scrollbars => 'se',
                           -wrap => 'word',
                         )->place(
                           -anchor => 'nw',
                           -width => $largeurEcran,
                           -relheight => 0.95,
                           -relx => 0.0,
                           -rely => 0.05,
                          );
$zoneTexte->focus; 
$zoneTexte->insert('end', "abc");
 
$zoneTexte->tagAdd('sel', '1.0', '1.0 lineend');

Voilou

[Mersenne]

Je viens de trouver une solution, mais je ne sais pas si c'est un comportement normal.
Essaye de donner le focus à ton widget text, et là ça passe.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $zoneTexte = $mw->Scrolled('Text',
                           -scrollbars => 'se',
                           -wrap => 'word',
                         )->place(
                           -anchor => 'nw',
                           -width => $largeurEcran,
                           -relheight => 0.95,
                           -relx => 0.0,
                           -rely => 0.05,
                          );
$zoneTexte->focus; 
$zoneTexte->insert('end', "abc");
 
$zoneTexte->tagAdd('sel', '1.0', '1.0 lineend');

Voilou

Merci beaucoup, tu as raison. Après quelques années sans faire de Perl Tk, j'avais oublié qu'il fallait donner le focus pour ça.