Re^4: GTK2+glade and knowing who called

[ultibuzz]

the glade itself is describing the form in an XML file,it does not generate perl code.

example minimal code

use warnings;
use strict;
use Gtk2 -init;
use Gtk2::GladeXML;
my $gladexml = Gtk2::GladeXML->new('register_test.glade');
$gladexml->signal_autoconnect_from_package('main');

Gtk2->main;


sub btnNUM_clicked {
    print "yay clicked";
}

sub gtk_main_quit
  {
        Gtk2->main_quit;
  }

an alternative would be

use warnings;
use strict;
use Gtk2 -init;
use Gtk2::GladeXML;
my $gladexml = Gtk2::GladeXML->new('register_test.glade');
$gladexml->signal_autoconnect_from_package('main');

Gtk2->main;


sub btnNUM_clicked {
    my $self = $_;
    print "yay,you clicked $self";
}

sub gtk_main_quit
  {
        Gtk2->main_quit;
  }

sub btnNUM_clicked1 {
    btnNUM_clicked(1);
}

sub btnNUM_clicked2 {
    btnNUM_clicked(2);
}

this would work and can also be automaticaly generated,and inserted in the XML definition,
but that i would want to avoid, if there is a way from glade telling me who called the event.

kind regards
Alex