Discussion :

[yep2cv]

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;

[djibril]

bon on va reprendre depuis le début.

Que souhaites tu faire ?
1 - Afficher plusieurs boutons sur une ligne, sur plusieurs lignes ?
2 - Dans un widget (fenetre global ?)

J'ai pas bien saisi ce que tu souhaites faire.

[yep2cv]

oui, c est ca:

• chaque ligne a plusieurs boutons (pas de soucis)
• il y a plein de lignes (pas de soucis)
• c est dans un widget qui scroll: soucis je ne trouve pas un widget qui veuille scroller mes lignes de boutons.

En gros ca ressemble a

mais ce scroll ne fait rien defiler; je me demande si ca vient des positions avec pack
voila

[djibril]

Bon avec ton code ci dessous et quelques modification :

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
#!/usr/bin/perl
 
use Tk;
use strict;
use warnings;
use Carp;
use Tk::Pane;
 
my $MAX = 12;
my $mw     = MainWindow->new();
$mw->minsize(200,200);
my $fr     = $mw->Scrolled("Frame", 
  -scrollbars => 'se',
)->pack( qw /-fill both -expand 1 / );
 
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;

J'ai rajouté

Code :

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

use Tk::Pane;

qui est nécessaire car tu crées un scrolled de type Frame.
Le scroll prend toute la fenêtre (fill et expand).

Moi ça fonctionne bien.

Sinon, quelle version de Perl et Tk utilise tu ?

Pour apprendre à manier toutes les options de pack. Lis la Faq Perl/Tk et récupère le script que j'ai fait et mis à disposition. Il permet de jouer avec toutes les options possible de pack en testant l'affichage de 4 boutons, c'est royal. Je m'en sers toujours pour me remettre les idées au clair

[yep2cv]

Premiers essais ne marchent pas: la frame ne scroll toujours pas.
J ai Tk version 800.015, et 800.024 sur perl 5.8.0 avec machine PA_RISC1 sous HPUX.
J ai vu pour le pack mais je relirai ta doc encore. (souvent j aime bien grid)

[yep2cv]

Ca y est, le petit exemple marche sur la version 800.024 en changeant

Code :

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

my $fr     = $mw->Scrolled("Frame",

par

Code :

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

my $fr     = $mw->Scrolled("Pane",

j ai bien un equivalent de frame qui scroll.
je considere que c etait juste une faute de frappe/inattention de ta part, mais la version 800.015 n a pas encore accepté de faire pareil.

[djibril]

Désolé pour l'erreur.