File Coverage

blib/lib/Gtk2/Ex/TreeModelFilter/Draggable.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

# Copyright 2008, 2009, 2010 Kevin Ryde

# This file is part of Gtk2-Ex-TreeModelFilter-DragDest.
#
# Gtk2-Ex-TreeModelFilter-DragDest is free software; you can redistribute it
# and/or modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 3, or (at your
# option) any later version.
#
# Gtk2-Ex-TreeModelFilter-DragDest is distributed in the hope that it will
# be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Gtk2-Ex-TreeModelFilter-DragDest.  If not, see
# .


package Gtk2::Ex::TreeModelFilter::Draggable;
use 5.008;
use strict;
use warnings;
use Gtk2;
use Carp;

our $VERSION = 3;
our @ISA;

BEGIN {
  # The only extra thing "use Glib::Object::Subclass" does is unshift itself
  # onto @ISA to give precedence a Glib::Object::new() over the specific
  # superclass new(), but that's not needed since have new() below.
  #
  my @args;
  if (! Gtk2::TreeModelFilter->can('Gtk2::TreeDragDest')) {
    require Gtk2::Ex::TreeModelFilter::DragDest;
    push @ISA, 'Gtk2::Ex::TreeModelFilter::DragDest';
    @args = (interfaces => [ 'Gtk2::TreeDragDest' ]);
  }
  Glib::Type->register_object ('Gtk2::TreeModelFilter', __PACKAGE__, @args);

}

sub new {
  my ($class, $child_model, $virtual_root) = @_;
  (@_ >= 2 && @_ <= 3)
    or croak "Usage: $class->new(\$child_model [, \$virtual_root])";

  return $class->Glib::Object::new (child_model  => $child_model,
                                    virtual_root => $virtual_root);
}

1;
__END__