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 ?