Discussion :

[Mayeu]

Bonjour,

Voila 2 jours que je recherche sous google comment faire une liste déroulante en contexte tk, tous ce que j'ai trouvé n'est pas équivalent a la liste déroulante que l'on peu trouver sur le net, ou la combo-box en java.

Je suppose que c'est possible de réaliser ça en Perl/Tk, si oui comment?

Merci d'avance a tous

[Jedai]

Voici la première entrée que me renvoie google après une recherche sur "Perl Tk Combobox"....
http://www.developpez.net/forums/sho...d.php?t=307162

--
Jedaï

[Mayeu]

Bonjour,

Merci de cette réponse, je n'avais en effet pas chercher combo box...

Par contre j'ai un peu testé voir comment ça marchais mais j'aimerais faire un truc et je ne vois pas comment.

J'ai un champs de texte et une combo box juste aprés. Le champs de texte doit acceuillir un motif, et la combo box contient une liste toute prête de motif (pour les motifs les plus courant). Mais si je séléctionne un motif dans la combo il faudrait que sa séquence s'affiche dans le champs de texte. Par exemple "Myb3" serait lié a "ayyytgrsacgt".

Hors dans la definition d'une liste on ne donne qu'un nom et c'est ce nom qui a être contenue dans la variable associée a la liste. J'aimerais donner un nom et que la variable contienne une valeur associé a ce nom et pas le nom que l'utilisateur vois.

Je ne sais pas si j'ai été assez clair ou pas

[Jedai]

Je comprend ce que tu veux dire, mais je ne crois pas que ce soit possible... A priori la variable associée à une browseEntry contient exactement le texte du choix sélectionné, rien d'autre.
Par contre tu peux tout de même obtenir l'effet que tu veux, en changeant la browsecmd :

-browsecmd

Specifies a function to call when a selection is made in the popped up listbox. It is passed the widget and the text of the entry selected. This function is called after the entry variable has been assigned the value.

Tu peux facilement mettre là une fonction qui met à jour le texte de ton champs non par la variable, mais par le motif associé. Cela te conviendrait-il ?

--
Jedaï

[Mayeu]

Oui en effet c'est ce qui seras le mieux si d'autre methode sons pas possible! Donc ce que j'ai a faire c'est créer une fonction qui lie le nom est la valeurs et je l'appelle grâce a cette commande dans la definition de la liste.

Bon ben ça m'a l'air simple tout ça! Je vais voir ce que je peu faire!

Merci encore!

[Mayeu]

Bon en fait c'est pas tout a fait réslue :/

Voi ce que j'ai :

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
 
my %pattern = {
PK => "KATATGKCCRTYTTCTCKMAC",
NBS5A => "YYTKRTHGTMITKGATGAYGTITGG",
Myb3 => "ACVGAYAAYGARATCAARAAYYWYTGG"};
 
...
 
my $txt_pattern = $t_send_adjustement -> Entry ( -textvariable => \$val_pattern) ;
	$t_send_adjustement -> put (0, 1, $txt_pattern);
 
...
 
my $be_pattern = $t_send_adjustement -> BrowseEntry( -variable  => \$val_nom_pattern,
 -browsecmd => \&pattern_linker(\$val_pattern, \$val_nom_pattern, \%pattern) );
 
$be_pattern ->insert("end", "Myb3");
$be_pattern ->insert("end", "PK");
$be_pattern ->insert("end", "NBS5A");
 
$t_send_adjustement -> put (0,3, $be_pattern);

et dans le fichier de fonction :

Code :

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

1
2
3
4
5
 
sub pattern_linker($$) {
	my ($val, $pattern, %hash) = @_ ;
	$val = $hash -> {$pattern};
}

Et lorsque je selectionne une valuer dans ma combo box, le programme plante avec cette erreur :

Code :

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

Abort trap

j'imagine bien que mon code ne tient pas la route, mais je vois pas ou a vrai dire...