#!/usr/bin/perl

use warnings;
use strict;

use Glib qw(TRUE FALSE);
use Gtk2 -init;
use Gtk2::GladeXML;
use Gtk2::SimpleList;
use Glib;


my $g = Gtk2::GladeXML->new('wiceshaped.glade');

my $vbox = $g->get_widget('vbox1');
my $slist = Gtk2::SimpleList->new('colname', 'text');
$slist->get_selection->set_mode('multiple');


push @{$slist->{data}}, [ 'text1'];
push @{$slist->{data}}, [ 'text2'];

$vbox->add($slist);
$slist->show();

Gtk2->main();