Forum Programmation.perl Perl-GTK : NoteBook qui n'affiche pas les HBox dans le titres ?

Posté par  (site web personnel) .
Étiquettes : aucune
0
15
nov.
2007
Bonjour,
J'ai un petit problème avec gtk-perl, plus précisément avec le widget NoteBook, ce widget sert à créer des « pages d'onglets ». Pour créer une nouvelle page l'objet NoteBook à une méthode append_page($child, $label_tab), l'argument $child est le widget à afficher dans la page, et $label_tab le widget à afficher sur l'onglet (le titre de l'onglet quoi).

Je dois mettre une image et un label dans le titre de l'onglet, donc j'ai créé une HBox et l'ai remplis d'un bouton et d'un label. J'utilise la méthode append_page comme ça :

$notebook->append_page(Gtk2::Label->new('Grouick'), $hbox);

Dans la page le label s'affiche bien mais le titre de l'onglet est vide : http://pix.nofrag.com/7/4/5/2bc63fbc38f32025de458c3fb008d.pn(...)

Si je remplace $hbox par un simple label, ça marche :

$notebook->append_page(Gtk2::Label->new('Grouick'), Gtk2::Label->new($if[0]));

http://pix.nofrag.com/4/a/4/0de85ea0ef0923fb730a82815dcca.pn(...)

J'ai encore fait un essai, et si j'utilise $hbox comme titre ET pour contenu de la page, et la, le titre s'affiche :

$notebook->append_page($hbox, $hbox);

http://pix.nofrag.com/d/c/a/9c3048cb8a26dabfee01a7489c273.pn(...)

Pour cette dernière, perl-gtk me retourne quand même un warning (mais ça paraît normal puisque j'affiche deux fois le même widget) :

Gtk-WARNING **: Can't set a parent on widget which has a parent


Y'a un truc qui m'échappe ou c'est un bug de perl-gtk ? J'ai la version 1.145, et pas de bug trouvé dans le bugtracker... Si quelqu'un arrive à reproduire le problème (ou si ça marche ?), avec quelle version de perl / perl-gtk sur quelle plateforme ?

Merci,
Antoine.

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.