Discussion :

[El Criminal]

Bonjour à tous,

Je programme sous perl et je réalise un petit projet qui dans deux listebox va ajouter des paramètres. La liste box grandie énormément et pour cela j'ai voulu mettre une scrollbar pour garder une taille correcte. LE problème c'est que j'ai deux listebox qui grandissent à la même vitesse et je voudrais que ces deux listbox aient une taille fixe et que la scroll bare face défiler les deux listbox en même temps.

Pour ceux qui ne verrait pas voici un petit schéma :


Pour les informations complémentaires, pour des soucis de conceptions j'utilise une fonction particulière qui remplie la listebox d'éléments. J'ai donc pensé à mettre dans la fonction juste après les fonctions d'insertions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
		$lstF->insert('end', $toInser[$i]);
			$lstS->insert('end', $toInser[$i]);
 
 
			$scrollbar_1->configure(-command => [yview => $lstF]);	
			$lstF->configure(-yscrollcommand => ['set', $scrollbar_1]);
			$lstS->configure(-yscrollcommand => ['set', $scrollbar_1]);

Bien évidement ca n'a pas marché, je vous fournis au passage les constructions des widgets :

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
 
 
	my($listbox_1) = $root->Listbox (
		-height => '0',
		-width => '0',
	);
 
	my($listbox_2) = $root-> Listbox (
		-height => '0',
		-width => '0',
	);
 
	my($scrollbar_1) = $root-> Scrollbar (
		-orient => "v",
		-command => [yview => $listbox_1],
	);

Et :

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
 
$scrollbar_1->grid(
		-in => $root,
		-column => '4',
		-row => '5',
		-sticky => 'ns'
	);
	$listbox_2->grid(
		-in => $root,
		-column => '1',
		-row => '5',
		-sticky => 'nesw'
	);
	$listbox_1->grid(
		-in => $root,
		-column => '2',
		-row => '5',
		-columnspan => '2',
		-sticky => 'nesw'
	);

Je rappel que le premier bout de code est issue d'une fonction et que les deux autres sont issue de la même portée dynamique.

Donc la question est en deux partie :
Comment figer la taille des listbox ?
Comment faire en sorte que la scrollbar sur le côté régisse les deux widgets ?

Merci à tous de votre attention.

[djibril]

Bonjour,

• Comment figer la taille des listbox ?
  Il faut donner à tes listbox une taille car si tu laisses à 0 ou met une valeur < 0, elles seront aussi larges que l'élément le plus long.

• Comment faire en sorte que la scrollbar sur le côté réagisse les deux widgets ?
  Il faut
  
  1. créer ta barre de défilement

     Code :

     Sélectionner tout - Visualiser dans une fenêtre à part

     1
     2
     my $defilement_v = $mw->Scrollbar(
     )->pack(qw/ -side left -fill y/);

  2. l'associer à ta liste pendant sa création

     Code :

     Sélectionner tout - Visualiser dans une fenêtre à part

     1
     2
     3
     4
     my $list1 = $mw->Listbox(
       -width => 20,
       -yscrollcommand => ['set', => $defilement_v],
     )->pack( qw/ -side left -fill y -expand 0 / );

  3. faire communiquer tes listes et ta barre

     Code :

     Sélectionner tout - Visualiser dans une fenêtre à part

     1
     2
     3
     4
     5
     # les listes doivent communiquer avec la barre
     $defilement_v->configure( -command => sub {
       $list1->yview(@_);
       $list2->yview(@_);
       } );

Voici un exemple de code

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
41
42
43
44
45
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use utf8;
my $mw = new MainWindow(
  -title      => '2listes et une barre',
  -background => 'white',
);
 
$mw->Label( -text => "scroller 2 liste avec une barre\n\n" )->pack(qw / -side top /);
 
# Création barre de défilement
my $defilement_v = $mw->Scrollbar()->pack(qw/ -side left -fill y/);
 
# Création de 2 list
my $list1 = $mw->Listbox(
  -width          => 20,
  -takefocus      => 1,
  -yscrollcommand => [ 'set', => $defilement_v ],
)->pack(qw/ -side left -fill y -expand 0 /);
my $list2 = $mw->Listbox(
  -width          => 20,
  -takefocus      => 1,
  -yscrollcommand => [ 'set', => $defilement_v ],
)->pack(qw/ -side left -fill y -expand 0 /);
 
$mw->Label( -text =>
    "Voici 2 listes reliées à une seule barre de défilement. Ces 2 listes ont une taille fixe et le texte est tronqué s'il est trop long.",
)->pack(qw/ -side left -fill both -expand 1 /);
 
# les listes doivent communiquer avec la barre
$defilement_v->configure(
  -command => sub {
    $list1->yview(@_);
    $list2->yview(@_);
  }
);
 
my @text  = qw/ r gf hgd dgfd gdg AZERTYUIOPQSDFGHJKLMWXCVBN hgfdgdgfdgfdfgsfqssg 1 2 3 4 5/;
my @text2 = ( 1 .. 200 );
$list1->insert( 'end', @text );
$list2->insert( 'end', @text2 );
 
MainLoop;

[El Criminal]

Merci à vous, problème résolu et bien résolu. Merci pour le temps passé à me répondre.

Cordialement.