Discussion :

[Jasmine80]

Est-il possible de créer 2 fenêtres dont l'une contient la liste des choix possibles et l'autre la liste à utiliser. Dans ce genre là, qui ressemble d'ailleurs à du Tk :





Merci,

[djibril]

Il faut créer 2 boites de listes cote à cote.

[Jasmine80]

Il faut créer 2 boites de listes cote à cote.

Et comment faire qu'elles soient interdépendantes et que ce qu'on enlève de l'une s'affiche dans l'autre via les 2 boutons centraux sans créer de nouvelle fenêtre?

Merci,

[djibril]

Je te fais un exemple

[Jasmine80]

Je te fais un exemple

Merci, c'est vraiment très sympa.

J'ai vu qu'il y avait moyen de sélectionner plusieurs valeurs dans une ListBox mais vu qu'ici il y a plus de 500 choix, ça ne sera pas pratique. Je vais donc rester sur ma première idée d'utiliser 2 fenêtres.

[djibril]

Disponible dans la FAQ Perl/Tk : Comment créer une boite de liste ?

[Jasmine80]

Merci beaucoup pour ton aide. Voici ce que cela donne :

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
$InFileLabel->grid( -row => 0, -column => 0, -sticky => 'w',-padx => 15 );
$InputLabel->grid( -row => 0, -column => 1, -sticky => 'w', -pady => 20);
 
$SequencesType ->grid( -row => 1, -column => 0, -sticky => 'w', -padx => 15  );
$linear->grid( -row => 1, -column => 1, -sticky => 'w');
$circular->grid( -row => 2, -column => 1, -sticky => 'w');
 
$entete1->grid( '-', $entete2 );
$liste1->grid( $bouton1vers2, $liste2 );
$liste1->grid( $bouton2vers1, $liste2 );
$liste1->grid( -row => 5, -rowspan => 3 );
$liste2->grid( -row => 5, -rowspan => 3 );
$bouton1vers2->grid( -row => 6, -sticky => 's' );
$bouton2vers1->grid( -row => 6, -sticky => 'n' );
 
$btn_execute->grid( -row => 8, -column => 0, -pady => 20, );
$btn_quitter->grid( -row => 8, -column => 2, -pady => 20, -padx => 30 );

A quoi sert le tiret dans $entete1->grid( '-', $entete2 );?
Je n'arrive pas à placer correctement les entêtes, j'aimerais quelque chose de ce genre :

Code :

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

$entete1->grid( -row => 3, -column => 0, -rowspan => 2, '-', $entete2 );

mais j'obtiens l'erreur :

ambiguous option "-": must be -column, -columnspan, -in, -ipadx, -ipady, -padx, -pady, -row, -rowspan, or -sticky at C:/Perl/lib/Tk/Widget.pm line 1163, <DATA> line 532.
at Restriction_Enzymes_frame.pl line 179

et si je supprime ce tiret, j'ai :

extra option or option with no value at C:/Perl/lib/Tk/Widget.pm line 1163, <DATA> line 532.
at Restriction_Enzymes_frame.pl line 179

Comment dois-je faire? Merci.

[djibril]

revois les exemples de la FAQ, tu comprendras mieux.

Oup's, je pense que j'ai manqué de précision dans la FAQ.

Lorsque tu utilises grid, il y a 2 façon de l'utiliser :

ligne à ligne ou case par case.

Lorsque l'on utilise la méthode ligne à ligne, seule les options suivantes sont utilisables :

-column, -columnspan, -in, -ipadx, -ipady, -padx, -pady, -row, -rowspan, or -sticky

[Jasmine80]

Merci, je suis arrivée à ce que je voulais en combinant les 2 méthodes.

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
$InFileLabel->grid( -row => 0, -column => 0, -sticky => 'w',-padx => 15 );
$InputLabel->grid( -row => 0, -column => 1, -sticky => 'w', -pady => 20);
 
$SequencesType ->grid( -row => 1, -column => 0, -sticky => 'w', -padx => 15  );
$linear->grid( -row => 1, -column => 1, -sticky => 'w');
$circular->grid( -row => 2, -column => 1, -sticky => 'w', -pady => 10);
 
$entete1->grid( -row => 3, -column => 0, -rowspan => 1);
$entete2->grid( -row => 3, -column => 3, -rowspan => 1);
$liste1->grid( $bouton1vers2, $liste2 );
$liste1->grid( $bouton2vers1, $liste2 );
$liste1->grid( -row => 5, -column => 0, -rowspan => 3, -pady => 20,-padx => 15  );
$liste2->grid( -row => 5, -column => 3, -rowspan => 3, -pady => 20,-padx => 15  );
$bouton1vers2->grid( -row => 6, -sticky => 's' );
$bouton2vers1->grid( -row => 6, -sticky => 'n' );
 
$btn_execute->grid( -row => 8, -column => 0, -pady => 20, );
$btn_quitter->grid( -row => 8, -column => 3, -pady => 20, -padx => 30 );