#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;
use Gtk2 '-init';
use Gtk2::SimpleList;
use constant TRUE  => 1;
use constant FALSE => 0;

my $categories = Gtk2::SimpleList->new ('Categories' => 'text');
$categories->set_headers_visible(FALSE);
@{$categories->{data}} = qw/Meat Beer Pizza Pasta Soda Juice Rabbitfood/;

$categories->set_has_tooltip(TRUE); # NOTE: thought this might help (nope)

my $path = Gtk2::TreePath->new_from_indices(0);

my $tooltips = Gtk2::Tooltips->new;
#my $tip = Gtk2::Tooltip->new;

$tooltips->set_tip($categories,"tooltip test", $path);
$tooltips->enable;


my $window = Gtk2::Window->new;
$window->set_title ('SimpleList examples');
$window->signal_connect (delete_event => sub {Gtk2->main_quit; TRUE});
$window->set_default_size (800,600);
$window->add($categories);
$window->show_all;

Gtk2->main;