diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-02 08:09:33 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-02 08:09:33 +0000 |
| commit | e362d2c839aa10a38edf2caa0fdabec2b4e9e6da (patch) | |
| tree | 2b0ae5a1da0ef60055c50c11287620f6fc7439a6 /perl-install | |
| parent | e9ec7808d6e91fbfa30c77ab0bf716f5b4ced6f3 (diff) | |
| download | drakx-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
Diffstat (limited to 'perl-install')
| -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 |