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
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
use Tk::BrowseEntry;  
  
my $fenetre_principale = MainWindow->new( -title => 'menu déroulant' ); 
my $mon_choix; 
my $menu_deroulant = $fenetre_principale->BrowseEntry( 
  -label => 'Text label : ', 
  -choices => ['choix1', 'choix2'], 
  -variable => \$mon_choix, 
)->pack(); 
  
# ajouter un choix dans le menu déroulant 
$menu_deroulant->insert('end', 'choix3'); 
  
# label choix 
$fenetre_principale->Label( 
 -textvariable => \$mon_choix, 
)->pack( qw/ -padx 10 -pady 10 / ); 
  
MainLoop;

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => 'Boite de liste' ); 
my $liste = $fenetre_principale->Listbox()->pack(); 
$liste->insert( 'end', qw/jasmine jedai djibril stoyak ClaudeLELOUP autre/ ); 
  
MainLoop;

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
# Création d'une fenêtre 
my $fenetre_principale = MainWindow->new( -title => 'Boites de listes' ); 
  
my $entete1 = $fenetre_principale->Label( -text => 'liste1' ); 
my $liste1 = $fenetre_principale->Scrolled( 
  'Listbox', 
  -scrollbars => 'osoe',       # Ascenseur 
  -selectmode => 'extended'    # Permet le choix multiple 
); 
  
# Insertion de données 
$liste1->insert( 'end', qw/jasmine jedai djibril stoyak ClaudeLELOUP autre/ ); 
  
# Pré-sélectionne le premier élément 
$liste1->selectionSet(0); 
  
my $entete2 = $fenetre_principale->Label( -text => 'liste2' ); 
my $liste2 = $fenetre_principale->Scrolled( 
  'Listbox', 
  -scrollbars => 'osoe',       # Ascenseur 
  -selectmode => 'extended'    # Permet le choix multiple 
); 
  
# Insertion de données 
$liste2->insert( 'end', qw/Perl Tk Qt4 Wx GTk2/ ); 
  
my $bouton1vers2 = $fenetre_principale->Button( 
  -text    => '>>', 
  -command => sub { 
    print "liste 1 => liste 2\n"; 
  
    # Lecture des éléments sélectionnés dans la boîte de liste 1 
    my @elt_selectionnes = $liste1->curselection(); 
    foreach my $elt1 (@elt_selectionnes) { 
  
      # insertion des éléments sélectionnés dans la boîte de liste 2 
      $liste2->insert( 'end', $liste1->get($elt1) ); 
      print "\t => ", $liste1->get($elt1), "\n"; 
    } 
  
    # Suppression dans la boîte de liste 1 des éléments1 copiés dans la boîte de liste 2. 
    # Le reverse permet de commencer la suppression par le plus grand index, car au fur et à mesure 
    # que l'on supprime un élément de la liste, les index décrémentent. 
    map { $liste1->delete($_) } reverse sort { $a <=> $b } @elt_selectionnes; 
  
  }, 
); 
my $bouton2vers1 = $fenetre_principale->Button( 
  -text    => '<<', 
  -command => sub { 
    print "liste 1 <= liste 2\n"; 
  
    # Lecture des éléments sélectionnés dans la boîte de liste 2 
    my @elt_selectionnes = $liste2->curselection(); 
    foreach my $elt2 (@elt_selectionnes) { 
  
      # insertion des éléments sélectionnés dans la boîte de liste 1 
      $liste1->insert( 'end', $liste2->get($elt2) ); 
      print "\t <= ", $liste2->get($elt2), "\n"; 
    } 
  
    # Suppression dans la boîte de liste 2 des éléments copiés dans la boîte de liste 1. 
    # Le reverse permet de commencer la suppression par le plus grand index, car au fur et à mesure 
    # que l'on supprime un élément de la liste, les index décrémentent. 
    map { $liste2->delete($_) } reverse sort { $a <=> $b } @elt_selectionnes; 
  }, 
); 
  
# Utilisation de grid pour placer les widgets dans la fenêtre 
$entete1->grid( '-', $entete2 ); 
$liste1->grid( $bouton1vers2, $liste2 ); 
$liste1->grid( $bouton2vers1, $liste2 ); 
$liste1->grid( -rowspan => 2 ); 
$liste2->grid( -rowspan => 2 ); 
$bouton1vers2->grid( -sticky => 's' ); 
$bouton2vers1->grid( -sticky => 'n' ); 
  
MainLoop;

1
2
$boite_liste->see(0); # Voir le premier élément de la liste 
$boite_liste->see('end'); # Voir le dernier élément de la liste