#!/usr/bin/perl -w

# Originally copied from Gtk2/t/GtkDialog.t.

BEGIN { require './t/inc/setup.pl' }

use strict;
use warnings;

plan tests => 42;

# we'll create some containers (windows and boxes are containers) and
# mess around with some of the methods to make sure they do things.

my $window = Gtk3::Window->new;
my $vbox = Gtk3::VBox->new;

is ($window->child_type, 'Gtk3::Widget', 'a window wants a widget');

# i think we'd know if $container->add didn't work
$window->add ($vbox);
ok (1, 'added a widget to the window');
$window->show_all;

$window->set_focus_child($vbox);
ok (1);

is ($window->get_focus_child, $vbox);
$window->set_focus_child (undef);
is ($window->get_focus_child, undef);

my $adjustment = Gtk3::Adjustment->new(0, 0, 100, 5, 10, 20);

$window->set_focus_vadjustment($adjustment);
is($window->get_focus_vadjustment, $adjustment);

$window->set_focus_hadjustment($adjustment);
is($window->get_focus_hadjustment, $adjustment);

$window->resize_children;
ok (1);

$window->set_border_width(10);
is($window->get_border_width, 10);

# child_type returns undef when no more children may be added
ok (!defined ($window->child_type),
    'child_type returns undef when the container is full');
is ($window->get_child, $vbox,
    'the window\'s child is set');

is ($vbox->child_type, 'Gtk3::Widget', 'a box wants a widget');

$vbox->pack_start (Gtk3::Label->new ("one"), 1, 1, 0);

is ($vbox->child_type, 'Gtk3::Widget', 'a box is always hungry');

my $entry = Gtk3::Entry->new ();

# let's dump in a few more quickly
$vbox->pack_start (Gtk3::Button->new ("two"), 1, 1, 0);
$vbox->pack_start (Gtk3::ToggleButton->new ("three"), 1, 1, 0);
$vbox->pack_start (Gtk3::CheckButton->new ("four"), 1, 1, 0);
$vbox->pack_start ($entry, 1, 1, 0);

my @children = $vbox->get_children;
is (scalar (@children), 5, 'we packed five children');

my @chain = $vbox->get_focus_chain;
is (scalar (@chain), 0, 'we have not set a focus chain');

# set focus chain to focusable children in reverse order
@chain = reverse map { $_->get_can_focus ? $_ : () } @children;
$vbox->set_focus_chain (@chain);
is_deeply ([$vbox->get_focus_chain], \@chain, 'focus chain took');

$vbox->unset_focus_chain;
is_deeply ([$vbox->get_focus_chain], []);

# togglebuttons suck.  wipe them out... all of them.
my $nremoved = 0;
$vbox->foreach (sub {
	if ('Gtk3::ToggleButton' eq ref $_[0]) {
		$vbox->remove ($_[0]);
		$nremoved++;
	}
	});
is ($nremoved, 1, 'removed one toggle');
@children = $vbox->get_children;
is (scalar (@children), 4, 'four children remain');

my $n_total = 0;
$vbox->forall (sub {
	isa_ok ($_[0], Gtk3::Widget::);
	$n_total++;
	});
is ($n_total, 4, 'forall walks all children');

is ($vbox->get_resize_mode, 'parent');
$vbox->set_resize_mode ('queue');
is ($vbox->get_resize_mode, 'queue');

$vbox->check_resize;
ok (1);

$vbox->set_reallocate_redraws(1);
ok (1);

#------------------------------------------------------------------------------
# child_get(), child_set()

is_deeply ([$vbox->child_get ($entry, qw(expand fill pack-type padding position))],
           [1, 1, "start", 0, 3]);

$vbox->child_set ($entry, expand => 0, position => 2);
$vbox->child_set ($entry, fill => 0);

is_deeply ([$vbox->child_get ($entry, qw(expand fill pack-type padding position))],
           [0, 0, "start", 0, 2]);

my $label = Gtk3::Label->new ("Blub");

$vbox->add_with_properties ($label, pack_type => "end", position => 4);
is_deeply ([$vbox->child_get ($label, qw(pack-type position))],
           ["end", 4]);
$vbox->remove ($label);

#------------------------------------------------------------------------------
# find_child_property()

is (Gtk3::Container->find_child_property('Gtk3-Perl-test-no-such-property'),
    undef,
    'find_child_property() no such child property');

is (eval { Gtk3::Container::find_child_property('Not::A::Container::Class',
						'propname'); 1 },
    undef,
    'find_child_property() Not::A::Container::Class croaks');

{
  my $pspec = Gtk3::Box->find_child_property('expand');
  isa_ok ($pspec, 'Glib::Param::Boolean',
	  'find_child_property() "expand" is a boolean');

  require Scalar::Util;
  Scalar::Util::weaken($pspec);
  is ($pspec, undef, 'find_child_property() destroyed when weakened');
}

{
  my $hbox = Gtk3::HBox->new;
  my $pspec = $hbox->find_child_property('expand');
  isa_ok ($pspec, 'Glib::Param::Boolean',
	  'find_child_property() object method "expand" is a boolean');
}

#------------------------------------------------------------------------------
# list_child_properties()

# as of Gtk 2.20 the base Gtk3::Container class doesn't have any child
# properties, but don't assume that, so don't ask anything of @pspecs, just
# that list_child_properties() returns
my @pspecs = Gtk3::Container->list_child_properties;

is (eval { Gtk3::Container::list_child_properties('Not::A::Container::Class');
	   1 },
    undef,
    'list_child_properties() Not::A::Container::Class croaks');

{
  my @pspecs = Gtk3::Box->list_child_properties;
  cmp_ok (scalar(@pspecs), '>=', 2,
	  'list_child_properties() at least "expand" and "pack"');

  require Scalar::Util;
  foreach (@pspecs) {
    Scalar::Util::weaken($_);
  }
  my $all_undef = 1;
  foreach (@pspecs) {
    if ($_) { $all_undef = 0; }
  }
  is ($all_undef, 1, 'list_child_properties() pspecs destroyed when weakened');
}

{
  my $hbox = Gtk3::HBox->new;
  my @pspecs = $hbox->list_child_properties;
  cmp_ok (scalar(@pspecs), '>=', 2,
	  'list_child_properties() object method at least "expand" and "pack"');
  isa_ok ($pspecs[0], 'Glib::ParamSpec');
  isa_ok ($pspecs[1], 'Glib::ParamSpec');
}

__END__

Copyright (C) 2003-2012 by the gtk2-perl team (see the file AUTHORS for the
full list).  See LICENSE for more information.