diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 964d1aaed..722034c65 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -270,12 +270,12 @@ sub create_scrolled_window { my $w = Gtk2::ScrolledWindow->new(undef, undef); $policy ||= [ 'automatic', 'automatic' ]; $w->set_policy(@{$policy}); - if (member(ref $W, qw(Gtk2::CList Gtk2::CTree Gtk2::Text Gtk2::TreeView Gtk2::TextView))) { + if (member(ref $W, qw(Gtk2::CList Gtk2::CTree Gtk2::Layout Gtk2::Text Gtk2::TextView Gtk2::TreeView))) { $w->add($W) } else { $w->add_with_viewport($W); - $viewport_shadow and gtkset_shadow_type($w->child, $viewport_shadow); } + $viewport_shadow and gtkset_shadow_type($w->child, $viewport_shadow); $W->can('set_focus_vadjustment') and $W->set_focus_vadjustment($w->get_vadjustment); $W->show; $w |