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;