FAQ Perl/Tk [FAQ]

[Viduc]

donc voici

comment tu fais pour avoir ton menu déroulant (listbox) sur une seule ligne?

en mettant -width => 1 dans la déclaration de la listebox ça met quand même au final un menu sur deux ou trois lignes...

[djibril]

Comment créer un menu déroulant ? Fait

[Viduc]

ha ouai mais c'est pas une petite maj que tu as fait là.... pas mal du tout ça, bravo et merci!!!!

et comme le précisais Jasmine oui il serait je pense de mettre la récupération de la valeur...

[djibril]

modification effectuée

[stoyak]

Salut,

Je rajoute une toute petite question/réponse.
4.3. Les étiquettes (Label, ...)

=> Comment créer une étiquette, un texte dans une fenêtre ou un cadre ?

Code :

1
2
3
my $label = $fenetre->Label( 
-text => 'mon étiquette',
)->pack();

Documentation : Tk::Label

[djibril]

Merci : rajouté.

Comment créer une boite de liste ? ajouté

[Jasmine80]

1) Serait-il possible de définir clairement les termes widget, frame, cadre, ce n'est pas très clair dans ma tête.

2) Serait-il possible à chaque fois qu'un widget permet l'entrée d'une donnée par l'utilisateur d'indiquer la façon de la récupérer pour la traiter.

3) Dans la FAQ on parle dans grid de l'option '^' qui prolonge la case du haut. Elle augmente la valeur de l'option -rowspan du widget se trouvant au-dessus

Puis on montre l'exemple

Code :

1
2
3
4
elsif ( $numero_exemple == 4 ) {
  $Bouton1->grid( $Bouton2, $Bouton3, -sticky => 'ns' );
  $Bouton4->grid( $Bouton5, '^',      -sticky => 'ns' );
}

Sur la capture d'écran on voit que le bouton trois est allongé. C'est donc bien celui qui se trouve en dessous de '^' dans l'ordre.
Sans l'exemple, je n'aurais pas compris.

Serait-il possible de rajouter un exemple similaire pour l'option '-'. Merci.

[djibril]

Envoyé par Jasmine80

1) Serait-il possible de définir clairement les termes widget, frame, cadre, ce n'est pas très clair dans ma tête.

La définition d'un widget est présente, je l'ai mise à jour.
Frame = Cadre , il est également définit ici.

Envoyé par Jasmine80

2) Serait-il possible à chaque fois qu'un widget permet l'entrée d'une donnée par l'utilisateur d'indiquer la façon de la récupérer pour la traiter.

Ok

Envoyé par Jasmine80

3) Dans la FAQ on parle dans grid de l'option '^' qui prolonge la case du haut. Elle augmente la valeur de l'option -rowspan du widget se trouvant au-dessus

Puis on montre l'exemple

Code :

Sur la capture d'écran on voit que le bouton trois est allongé. C'est donc bien celui qui se trouve en dessous de '^' dans l'ordre.
Sans l'exemple, je n'aurais pas compris.

Serait-il possible de rajouter un exemple similaire pour l'option '-'. Merci.

C'est fait.

[Jasmine80]

Merci Djibril, c'est très sympa de ta part.

[Viduc]

pitite question... comment faire un scroll avec un label?

j'essaie ça mais ça marche pas...

Code :

1
2
3
4
5
 
my $Text_INFO = $Fenetre_Info_Logiciel ->Scrolled('Label', -text => $INFO, -wrap => 'none', -scrollbars => "osoe", -font => $FT_Principale, -width => 10, -height => 10);	
 
 
$Text_INFO -> pack(-fill => 'y', -side => 'top', -expand => 0);

[djibril]

tu ne peux pas scroller un label, soit tu mets des \n dans ton texte, soit tu utilises l'option -wraplength

[Viduc]

ha oki, je me disais bien qu'on ne pourvait pas

l'option -wraplength devrait le faire je pense pour une partie en tout cas

merci à toi!

[Perl53]

moi j'aurais une question en rapport avec la partie 4.8. Les menus (Menu, Menubutton, ...)
je sais qu'il est possible de faire des barre d'outils et je voudrais savoir comment faire pour en créer une, sachant de plus qu'il faut un module, toolbar si ma mémoire est bonne

[djibril]

Envoyé par Perl53

moi j'aurais une question en rapport avec la partie 4.8. Les menus (Menu, Menubutton, ...)
je sais qu'il est possible de faire des barre d'outils et je voudrais savoir comment faire pour en créer une, sachant de plus qu'il faut un module, toolbar si ma mémoire est bonne

Qu'entends tu par barres d'outils ?

Sinon, pour l'instant, dans la FAQ, il n' y a que la création de menu principal, il me faut un peu de temps pour rajouter les menubuttons, voir les menus sous forme de popup.

[Perl53]

par barre d'outils j'entends :

(l'image date un peu )

[djibril]

Envoyé par Perl53

par barre d'outils j'entends :

(l'image date un peu )

Bah, je ne connaissais pas ce module . On peut faire des choses intéressante avec .

En ce qui concerne les menu natif de Perl tu en as 2 voir 3 différents.
- Les menus en entete de fenetre (menu principal)
- Les menus boutons, ça te permet d'avoir un menu qui s'affiche lorsque tu clique sur un bouton par exemple.
- Le menu popup, même principe que les menus boutons, mais tu peux l'appliquer partout. Pour exemple, si tu fais un clique droit sur ta page web dvp.com, tu as un menu qui apparait.

Voilà, je ne sais pas si tes besoins se trouvent dans la liste ci-dessus ? Maintenant en ce qui concerne Tk::Toolbar, je ne l'ai jamais utilisé, il n'a pas l'air très compliqué sinon.

Pour voir des exemples, si tu es sous Windows, tape sous ta console DOS widget et va dans la section Menu, tu verras les différents rendus.

ça te convient ?

[Perl53]

pour le toolbar, je peut trouver mais je ne connaissais pas les 2 autres type de menu et donc je te laisse le temps d'écrire les rubriques correspondantes dans la FAQ

[djibril]

Je ne te promet pas de te le faire de suite . Mais dès que j'ai un peu de temps, je te fais un petit exemple, ça te convient ?

[Perl53]

ok cela me convient parfaitement, merci de m'avoir répondu

[djibril]

3 nouvelles questions rajoutées au sujet des menus en Perl Tk (section 4.8):
Comment créer un bouton de menu ?
Comment créer un menu d'option ?
Comment créer un menu qui surgit après un clic souris dans un widget ?

Voilà, j'attends vos retours.