Discussion :

[nicdesf]

Bonjour,

Je vous expose mon problème : Je suis actuellement affairé à programmer une application en Perl/Gtk2. Afin de controler l'interface graphique, je stocke les références aux widgets dans une table de hashage. Comment faire pour passer en argument à une fonction une 'référence' de cette table ?

Un petit exemple pour être plus clair (Ce code n'est pas fonctionnel, il n'est là que pour exemple):

Code :

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

1
2
3
4
5
6
7
8
 
$window->{'Main} = Gtk2::Window->new('toplevel'}
&AddLabel(\$window->{'Main'});
 
sub AddLabel ($) {
  ($parent) = @_;
  $$parent->{'Label'} = Gtk2::Label->new();
}

Ce que je souhaiterais, c'est :
1) Passer le pointeur sur $window->{'Main'} à ma fonction.
2) Retrouver ma référence à mon nouveau widget dans le hash $window->{'Main'}->{'Label'}

Mais non ! Jai bien fouiné un peux partout et sur bon nombre de site, apparement personne n'a eu ce problème.

Merci pour votre aide.

[Woufeil]

Salut !

Voyons, raisonnons un peu. $window->{'Main'}, c'est quoi ? Un scalaire, comme l'indique le $ au début. Précisons un peu plus, c'est même une référence, puisque cela contient le retour d'un constructeur. En fait, c'est une référence vers une table de hachage.
Donc en fait, ton code essaye de passer une référence à une référence vers une tabke de hachage à la fonction AddLabel !

Passe lui seulement $window->{'Main'}, et ton code fonctionnera.

Oh, simple nquestion de vocabulaire, évite le mot pointeur en Perl, préfère référence

[nicdesf]

S'uis vraiment bête, j'avais 'presque' tout essayé, sauf ça !!!

Merci beaucoup pour cette réponse rapide.

Woufeil += 1

[Woufeil]

Woufeil += 1

Rhô c'est moche ça : Woufeil++ plutôt !

Et oui, le codeur Perl est flemmard, et là il y a gain de 1 caractère, et sans compter les espaces !
Larry Wall serait fier de moi