$slist = Gtk2::SimpleList->new (
              'Enabled'    => 'bool',
              'Scanner'    => 'text',
              'Media'      => 'text',
              'Description' => 'text'
            );

@{$slist->{data}} = (
        ['1','test','CDR','Long Description'],
        ['0','test 2','CDR'],
        ['0','test 3','CDR'],
);

##</code><code>##

$slist->signal_connect( 'row-activated', sub { printDebugWindow("Clicked!") });

##</code><code>##

$slist->{data}[0][0]->signal_connect( 'toggled', sub { printDebugWindow("Clicked!") });

##</code><code>##

my $tree_model = $slist->get_model();
$tree_model->signal_connect( row_changed => sub { printDebugWindow("Clicked") });