Le 10 mars 2009 11:31, Frédéric <frederic.mantegazza@???> a écrit :
>
> Le 10/3/2009, "Patrice Karatchentzeff"
> <patrice.karatchentzeff@???> a écrit:
>
>>> Quel est l'évènement, alors ?
>>
>>selection_get je pense.
>>
>>Par contre, pour le moment, je bloque sur comment récupérer les
>>signaux depuis le programme principal sans le mettre dans un module
>>externe.
>
> Pas compris...
Il semblerait que pour activer les signaux, il suffise de
$gladexml->signal_autoconnect_from_package();
dans le script suivant :
#!/usr/bin/perl
use strict;
use warnings;
use Gtk2 '-init';
use Gtk2::GladeXML;
my $mouse_copy = "";
my $gladexml = Gtk2::GladeXML->new("/home/pk/trans.glade");
$gladexml->signal_autoconnect_from_package();
my $top = $gladexml->get_widget("window1");
$top->show();
Gtk2->main;
sub on_window1_delete_event {
print "Hello\n";
Gtk2->main_quit;
}
Ça ne fonctionne pas : si je lance le programme à la main depuis un
terminal et que je le tue à la souris, il reste actif jusqu'à ce que
je le termine avec un CTRL-C.
Je n'arrive pas à récupérer les signaux depuis le script principal (et
tous les tutoriaux proposent de créer un module externe pour cela : je
suis d'accord que c'est la bonne solution pour un gros programme mais
là, c'est un bête wrapper qui va faire quelques dizaines de lignes au
mieux).
PK
--
|\ _,,,---,,_ Patrice KARATCHENTZEFF
ZZZzz /,`.-'`' -. ;-;;,_ mailto:p.karatchentzeff@free.fr
|,4- ) )-,_. ,\ ( `'-' http://p.karatchentzeff.free.fr
'---''(_/--' `-'\_)
