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