From e362d2c839aa10a38edf2caa0fdabec2b4e9e6da Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Jan 2003 08:09:33 +0000 Subject: - Layout widget has native scrolling support - shadow parameter can always be used --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') 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 -- cgit v1.2.1