je cherche a faire plein de lignes de boutons et a scroller (ca ne rentre pas dans l ecran, meme ecrit petit), et j ai pas de scroll...

Dans ma ligne avec la commande Scrolled, j ai essaye avec des frame, hlist ... pas mieux. Rien ne marche. Des idees? (voire des solutions )
Mon code est plus complique mais ressemble a

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
my $MAX = 12 ;
my $mw     = MainWindow->new();
   $mw->geometry("175x50+5+5");
my $fr     = $mw->Scrolled('Frame', -scrollbars=>'se')->pack();
my @lignes =() ;
for (my $i=0;$i<$MAX;$i++){
  $lignes[$i]= $fr->Button(-text=>"bt $i",-font=>"fixed",-width=>25)->pack();
}
  $mw->bind('<q>' 	=> sub{exit});
  $mw->bind("<Escape>"	=> sub{exit} );
MainLoop;