#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

use Glib qw(TRUE FALSE);
use Gtk2 '-init';
use Gtk2::Ex::Simple::List;

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

Gtk2::Ex::Simple::List->add_column_type( 'toggle',
          type     => 'Glib::Boolean',
          renderer => 'Gtk2::CellRendererToggle',
          attr     => 'active',
     );


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

my $window = Gtk2::Window->new;
$window->set_title ('Liste');
$window->set_border_width(5);
$window->signal_connect (delete_event => sub { Gtk2->main_quit; 1; });

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

my $list = Gtk2::Ex::Simple::List->new (
                'Text'    => 'text',
                'Toggle'  => 'toggle',
              );
$window->add($list);

@{$list->{data}} = (
        [ 'test1', 0],
        [ 'test2', 1],
        [ 'test3', 1],
        [ 'test3', 0],
);

$list->signal_connect (row_activated => sub {
        my ($slist, $path, $column) = @_;
        print Dumper($slist->{data});
    });

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

$window->show_all;
Gtk2->main;