[Perl] Accès à un widget fils en particulier

Bonjour,
Le problème est le suivant ;
j'initialise une "vertical box" à l'intérieur d'une fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sub init_guicommun{   #etc..   $vb1 = Gtk::VBox->new($false,0); $vb1->set_usize(130,350);   my $combo_modele = Gtk::Combo->new();   $combo_modele->set_popdown_strings( @tab_modele ); $frame_modele->add($combo_modele); $vb1->add($frame_modele);   # etc.. }

---

Ensuite je cherche à récupérer le contenu d'un widget fils de $vb1 qui est retourné par la
fonction.

Code:

---

1 2	my $modele=$vb1->combo_modele->entry->get_text();

---

Erreur :

Code:

---

Can't locate object method "combo_modele" via package "Gtk::VBox" at guicommun.pm line 242

---

Je suis obligé de passer par le widget "père" puisque c'est l'objet que me retourne ma fonction, je ne connais pas , (et n'ai pas trouvé.. malgré de nombreuses recherches) la méthode générique qui me permet d'accèder à ce widget fils connaissant le père.
Toute aide est vivement appréciée :aie:

Bonjour,

Il existe la méthode $container->get_children mais le plus simple est de garder une référence sur ton widget ;)

Merci pour ta réponse ultrasonique :king:

En effet je crois que je vais garder un tableau de hash avec les références de tous mes widgets.. après avoir vu comment Glade gérait son code c'est aussi de cette manière là qu'il fait appel à posteriori aux widgets :?

Citation:

---

Envoyé par psychonaute

En effet je crois que je vais garder un tableau de hash avec les références de tous mes widgets.. après avoir vu comment Glade gérait son code c'est aussi de cette manière là qu'il fait appel à fortiori aux widgets :?

---

C'est une solution (relativement simple à mettre en place en Perl), mais le top est de faire de la POO et dans ce cas il n'y a plus de soucis :

Code:

---

1 2 3 4 5 6 7

class MyWindow { private MyMenu; private MyCombobox; private MyToolbar; /* ... */ }

---