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;
Partager