Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^4: GTK2+glade and knowing who called

by ultibuzz (Monk)
on Jan 22, 2013 at 11:40 UTC ( #1014634=note: print w/ replies, xml ) Need Help??


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

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


Comment on Re^4: GTK2+glade and knowing who called
Select or Download Code
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)

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

      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

        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

        OTOH :)

        my $button = Gtk2->get_current_event->window

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014634]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2015-07-05 21:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (68 votes), past polls