package Foo;

use strict;
use warnings;

use Gtk2;
use Glib::Object::Subclass
  Gtk2::Label::,
  signals => { size_request => \&do_size_request };

sub do_size_request ($$) {
  my ($self, $req) = @_;
  print "this is Foo::do_size_request\n";
  print "text is '",$self->get_text,"'\n";
  print "before chain: ",$req->width(),"x",$req->height(),"\n";
  Glib::Object::signal_chain_from_overridden ($self, $req);
  print "after chain: ",$req->width(),"x",$req->height(),"\n";
}

1;