SimpleList scroll to end

[zentara <zentara1 sbcglobal net>]

Hi,
I'm hitting a mental block today.

I wanted to add a SimpleList to a ScrolledWindow,
then auto scroll to the end.

What is the best way to force the scrollbar to the end?
I have a bad hack that works below, but I'm sure I'm
overlooking something. :-)
 
#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 qw/-init/;
use Gtk2::SimpleList;

my $count = 0;
my $win = Gtk2::Window->new;
$win->signal_connect( 'destroy' => sub{exit} );

$win->set_size_request(300,200);
$win->set_position('center');

my $sw = Gtk2::ScrolledWindow->new (undef, undef);
$sw->set_policy ('automatic', 'automatic');
my $ha1 = $sw->get_vadjustment;

my $list = Gtk2::SimpleList->new('test' => 'int',);
$sw->add($list);
$win->add($sw);
$win->show_all;
Glib::Timeout->add(500, \&update, $list);
Gtk2->main;

sub update{
        my $list = shift;
        push @{$list->{data}},rand $count++;
        # bad hack
        $list->scroll_to_point(0,1000);        
return 1;
}
__END__

Thanks,
zentara


-- 
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html