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;