Re: Subclassing a Gtk2::TreeStore

[Torsten Schoenfeld <kaffeetisch gmx de>]

On Fri, 2007-10-26 at 17:22 +0100, Dave Howorth wrote:

> My [non-working] code looks like this:

I haven't tested it in a complete application, but this seems to work:

  package MyTreeStore;

  use Glib qw(TRUE FALSE);
  use Gtk2;

  use Glib::Object::Subclass
    'Gtk2::TreeStore',
  ;

  sub drag_data_received
  {
      my ($self, $dest_path, $selection_data) = @_;
      return $self->SUPER::drag_data_received ($dest_path, $selection_data);
  }

  1;

  package main;

  my $store = MyTreeStore->new (qw/Glib::String/);
  $store->drag_data_received (undef, undef);

Note how drag_data_received is overridden simply how you'd override any
other method in normal Perl code, and how the parent's
drag_data_received is invoked.

-- 
Bye,
-Torsten