Re: default signal closure via bindingset

[Kevin Ryde <user42 zip com au>]

Torsten Schoenfeld <kaffeetisch gmx de> writes:
>
> For which version of glib is this?  With glib 2.19.5, I cannot reproduce:

The debian 2.16.6-1, though nosing around I didn't see anything in the
glib cvs which might alter it.  The chain_from_overridden sample I
posted to the bug might be easier to reproduce than via the bindings
stuff, taking gtk out of the equation.

package MyClass;
use strict;
use warnings;
use Glib;

use Glib::Object::Subclass
  'Glib::Object',
  signals => { mysig => { param_types => [],
                          return_type => undef },
             };

sub INIT_INSTANCE {
  my ($self) = @_;
}

sub do_mysig {
  print "MyClass mysig runs\n";
  return 123;
}


package MySubClass;
use strict;
use warnings;

use Glib::Object::Subclass
  'MyClass',
  signals => { mysig => \&_do_mysubclass_mysig };

sub INIT_INSTANCE {
  my ($self) = @_;
}

sub _do_mysubclass_mysig {
  my ($self) = @_;
  $self->signal_chain_from_overridden;
}

package main;
use strict;
use warnings;

my $obj = MySubClass->new;
$obj->signal_emit ('mysig');
exit 0;