#!/usr/bin/perl -w
use strict;
use Gnome2;

use constant TESTS => 12;
use Test::More skip_all => "Seems to be broken", tests => TESTS;

# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2/t/GnomeIconList.t,v 1.14 2005/05/29 14:54:09 kaffeetisch Exp $

###############################################################################

SKIP: {
  our $application;
  do "t/TestBoilerplate";

  #############################################################################

  my $adjustment = Gtk2::Adjustment -> new(50, 0, 100, 5, 5, 20);
  my $list = Gnome2::IconList -> new(23, $adjustment, [qw(static-text is-editable)]);
  isa_ok($list, "Gnome2::IconList");

  $list -> set_hadjustment($adjustment);
  $list -> set_vadjustment($adjustment);

  $list -> freeze();
  $list -> thaw();

  $list -> insert(0, "/usr/share/pixmaps/yes.xpm", "YES!");
  $list -> insert_pixbuf(1,
                         Gtk2::Gdk::Pixbuf -> new("rgb", 1, 8, 23, 42),
                         "/usr/share/pixmaps/yes.xpm",
                         "YES!");

  $list -> append("/usr/share/pixmaps/yes.xpm", "YES!");
  $list -> append_pixbuf(Gtk2::Gdk::Pixbuf -> new("rgb", 1, 8, 23, 42),
                         "/usr/share/pixmaps/yes.xpm",
                         "YES!");

  is($list -> get_icon_filename(2), "/usr/share/pixmaps/yes.xpm");
  is($list -> find_icon_from_filename("/usr/share/pixmaps/yes.xpm"), 0);

  $list -> remove(1);

  is($list -> get_num_icons(), 3);

  $list -> set_selection_mode("multiple");
  is($list -> get_selection_mode(), "multiple");

  $list -> select_icon(1);
  is_deeply([$list -> get_selection()], [1]);

  $list -> unselect_icon(1);
  $list -> unselect_all();

  SKIP: {
    skip("select_all is new in 2.8", 0)
      unless (Gnome2 -> CHECK_VERSION(2, 8, 0));

    $list -> select_all();
  }

  $list -> focus_icon(1);

  $list -> set_icon_width(42);
  $list -> set_row_spacing(5);
  $list -> set_col_spacing(5);
  $list -> set_text_spacing(5);
  $list -> set_icon_border(5);
  $list -> set_separators("--");

  # FIXME: why does moveto() yield a warning?
  # $list -> moveto(1, 0.0);

  is($list -> icon_is_visible(1), "none");
  is($list -> get_icon_at(20, 20), -1);

  like($list -> get_items_per_line(), qr/^\d+$/);

  my $item = $list -> get_icon_text_item(1);
  isa_ok($item, "Gnome2::IconTextItem");
  $item -> configure(10, 10, 23, "Sans 12", "BLA!", 0, 1);
  is($item -> get_text(), "BLA!");
  $item -> setxy(11, 11);
  $item -> select(1);
  $item -> focus(1);
  $item -> start_editing();
  isa_ok($item -> get_editable(), "Gtk2::Editable");
  $item -> stop_editing(0);

  # isa_ok($list -> get_icon_pixbuf_item(1), "Gnome2::Canvas::Pixbuf");

  # FIXME
  # on rh8, with libgnomeui-2.0 version 2.0.3, this line causes the test
  # to segfault and pop up the Gnome crash dialog when running under
  # make test, but not when running directly from the terminal.  probably
  # something strange going on with refcounts somewhere.  -mup
  # $list -> clear();
}