Problème de pack / grid

Voici ma fonction lister, qui marche très bien sauf si je rajoute la ligne 4 (le titre).
Je n'ai numéroté que les 4 premières lignes.
Dès que je rajoute la ligne 4 le pg tourne en boucle infinie mais plus rien ne s'affiche.

Je me demande si c'est pas le mixte pack / grid qui met le bazard ....

- Le frame est packé
- Le label du frame est packé
- les autres labels du frames sont gridés

Voivi un extrait du code :

Code:

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
 
1 sub lister {
2  $f->destroy if Exists($f) ;
3  $f = $mw->Frame(-background => 'white')->pack ;
 
  # LA LIGNE QUI MET LE BAZARD
4  $f->Label( -text => 'Liste')->pack ;
 
 
 
  # Grid
 
  $f->Label(-text => 'Nom')->grid(-row => 0, -column => 0 , -sticky => 'nesw') ;
  $f->Label(-text => 'Prénom')->grid(-row => 0, -column => 1 , -sticky => 'nesw') ;
  $f->Label(-text => 'Code postal')->grid(-row => 0, -column => 2 , -sticky => 'nesw') ;
 
  my ($lig) = 1  ;
  foreach my $ref (@pers) {
    $f->Label(-text => $ref->[0])->grid(-row => $lig, -column => 0 , -sticky => 'nesw') ;
    $f->Label(-text => $ref->[1])->grid(-row => $lig, -column => 1 , -sticky => 'nesw') ;
    $f->Label(-text => $ref->[2])->grid(-row => $lig, -column => 2 , -sticky => 'nesw') ;
    $lig++ ;
  }
 
  foreach my $label ($f->children) {
    $label->configure( -background => 'white', -relief=>'solid', -borderwidth =>1, -padx=> 5, -anchor => 'w') ;
  }
 
}

Au 1er coup d'oeil y a t'il une erreur flagrande ?
Merci

Il est interdit d'utiliser plus d'un gestionnaire d'espace dans le même widget. Ce qui est la cas dans ton code. Tu utilises pack et grid dans le widget Frame. Si tu as commencé à utiliser pack dans ton Frame (pour afficher des labels ou autres, il t'es interdit d'utiliser par le suite grid dans ce même cadre).

Pour plus d'informations.

Merci dans ce cas tout s'explique. Et en + c'est dans la FAQ, honte à moi !