Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
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 perusing the Monastery: (10)
As of 2014-09-02 18:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (29 votes), past polls