my $scroll = Gtk2::ScrolledWindow->new (undef, undef);
$scroll->set_shadow_type ($args{shadow_type} || 'etched-out');
$scroll->set_policy (exists $args{policy} ? @{$args{policy}} : qw(automatic automatic));
$scroll->set_size_request (@{$args{size}}) if exists $args{size};
$scroll->add($list);
$scroll->set_border_width(exists $args{border_width} ? $args{border_width} : 2);
my $scroll = Gtk2::ScrolledWindow->new (undef, undef);
$scroll->set_shadow_type ($args{shadow_type} || 'etched-out');
$scroll->set_policy (exists $args{policy} ? @{$args{policy}} : qw(automatic automatic));
$scroll->set_size_request (@{$args{size}}) if exists $args{size};
$scroll->add($list);
$scroll->set_border_width(exists $args{border_width} ? $args{border_width} : 2);