in reply to Re^3: GTK2+glade and knowing who called
in thread GTK2+glade and knowing who called

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;
  }

[download]

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);
}

[download]

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

Replies are listed 'Best First'.
Re^5: GTK2+glade and knowing who called
by Anonymous Monk on Jan 22, 2013 at 12:16 UTC

    Read perlvar#@_ and use @_, seems to work fine for me,  print "!!!@_\n"; yields 

    !!!! Gtk2::Button=HASH(0xc6fbf4) Gtk2::Dialog=HASH(0xc70094)

    [download]

    While you're at it read perlintro and the links from my first reply

[reply]
[d/l]
[select]

      i would be happy if i would have anything in @_,
      but debug and a dump show nothing in there.
      If normaly there should be something, then i don't have a problem with the code ,
      but something went wrong on installing Gtk2, and thus i'll check that ;)

      kind regards
      Alex

      PS: reinstalling gtk2+ libs freshly

[reply]

        i would be happy if i would have anything in @_, but debug and a dump show nothing in there.

        :) Can you prove it?

        In the code you posted you use $_, but $_ is not @_;

        To prove you might post sscce like 

        use ...
my $rawglade = q{<?xml version="1.0" standalone="no"?>
... };
my $gladexml = Gtk2::GladeXML->new_from_buffer( $rawglade );
$gladexml->signal_autoconnect_from_package('main');
sub btnNUM_clicked {
    print "yay clicked @_ \n";
}
__END__
yay clicked 
yay clicked

        [download]

        OTOH :)

        my $button = Gtk2->get_current_event->window

[reply]
[d/l]

In Section Seekers of Perl Wisdom