Your welcome. After posting that example code, I extended it to multicolumn sorting. You may find this example even better. It sorts on each column, by clicking that column header.

#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 -init;
use Gtk2::SimpleList;

my $win = Gtk2::Window->new;
$win->signal_connect (delete_event => sub { Gtk2->main_quit; });

my $vbox = Gtk2::VBox->new;
$win->add ($vbox);

my $slist = Gtk2::SimpleList->new ( 'Int' => 'int', 'Text' => 'text' )
+;

@{$slist->{data}} = ( [11, 'text1'], [21, 'text2'], [3, 'text3'], [41,
+ '4text'] );

$slist -> set_reorderable( 1 );

#my @columns = $slist->get_columns;
#for (my $i = 0 ; $i < @columns ; $i++) {
#$columns[$i]->set_sort_column_id ($i);
#}
# or
$slist->get_column (0)->set_sort_column_id (0);
$slist->get_column (1)->set_sort_column_id (1);

$slist->get_column(0)->signal_connect( clicked =>
                sub { warn "clicked 0!\n" } ); 

$slist->get_column(1)->signal_connect( clicked =>
                sub { warn "clicked 1!\n" } ); 

$vbox->add ($slist);

my $button = Gtk2::Button->new('Show Data');
$vbox->pack_end( $button, 0, 0, 0 );


$button->signal_connect(
    clicked => sub {
       print @{$slist->{data}},"\n";
       # demonstrates reordering
       
       foreach my $arr ( @{$slist->{data}} ){
              print "$arr->[0]\t$arr->[1]\n"
       
           }
      print "\n\n";
    }
);

$win->show_all;
Gtk2->main;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.