summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-02 08:09:33 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-02 08:09:33 +0000
commite362d2c839aa10a38edf2caa0fdabec2b4e9e6da (patch)
tree2b0ae5a1da0ef60055c50c11287620f6fc7439a6
parente9ec7808d6e91fbfa30c77ab0bf716f5b4ced6f3 (diff)
downloaddrakx-e362d2c839aa10a38edf2caa0fdabec2b4e9e6da.tar
drakx-e362d2c839aa10a38edf2caa0fdabec2b4e9e6da.tar.gz
drakx-e362d2c839aa10a38edf2caa0fdabec2b4e9e6da.tar.bz2
drakx-e362d2c839aa10a38edf2caa0fdabec2b4e9e6da.tar.xz
drakx-e362d2c839aa10a38edf2caa0fdabec2b4e9e6da.zip
- Layout widget has native scrolling support
- shadow parameter can always be used
-rw-r--r--perl-install/ugtk2.pm4
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