FAQ Perl/TkConsultez toutes les FAQ

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
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => 'Text' ); 
my $widget_texte = $fenetre_principale->Text( )->pack( ); 
$widget_texte->insert('end', "1 : Ligne 1 : exemple\n"); 
$widget_texte->insert('end', "2 : Ligne 2 : exemple\n"); 
  
print $widget_texte->get('1.0', '1.end'),"\n";  # affiche la première ligne 
print $widget_texte->get('2.0', '2.end'),"\n";  # affiche la deuxième ligne 
  
# affiche le tout 
print 'Tout : ',$widget_texte->get('1.0', 'end');  # affiche tout 
  
my $bouton_selection = $fenetre_principale->Button(  
  -text => 'affichez selection', 
  -command => sub { 
    print $widget_texte->getSelected,"\n"; 
  },   
)->pack(); 
  
  
MainLoop;

my $widget_texte_readonly = $fenetre_principale->ROText( )->pack( );

my $data = $widget_text->get('1.0','end');

my @lignes = split( /\n/, $widget_text->get('1.0','end') );

1
2
3
$widget_text->see('1.0'); # Voir la première ligne du widget 
$widget_text->see('25.0'); # Voir la 25e ligne du widget 
$widget_text->see('end'); # Voir la dernière ligne du widget

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
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => 'Couleur texte' ); 
my $widget_texte = $fenetre_principale->Text()->pack(); 
  
# Création des tags 
$widget_texte->tagConfigure( 
  'rouge', 
  -background => '#E3E3E3', 
  -foreground => 'red', 
); 
$widget_texte->tagConfigure( 
  'bleue_gras', 
  -foreground => 'blue', 
  -font       => '{Courrier New} 10 {bold}', 
); 
  
$widget_texte->insert( 'end', "Ligne en rouge\n",                 'rouge' ); 
$widget_texte->insert( 'end', "Ligne en bleu gras\n",             'bleue_gras' ); 
$widget_texte->insert( 'end', 'Bonjour ' ); 
$widget_texte->insert( 'end', 'mes amis les perléens aimant le ', 'bleue_gras' ); 
$widget_texte->insert( 'end', 'Perl/TK',                          'rouge' ); 
$widget_texte->insert( 'end', "\nMerci de votre lecture\n" ); 
$widget_texte->insert( 'end', "Au revoir\n" ); 
$widget_texte->insert( 'end', "Bye\n",                            'bleue_gras' ); 
  
MainLoop;