summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-16 19:58:16 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-16 19:58:16 +0000
commitc38303069f287b4ffb91b2ca9f63614e1ecaec9b (patch)
tree0c618f466a01b60e048c0ea7061cee215bb7d87d /perl-install/mygtk2.pm
parent5cbf48d3e82d00d259b3dae594016ed26dfeab14 (diff)
downloaddrakx-c38303069f287b4ffb91b2ca9f63614e1ecaec9b.tar
drakx-c38303069f287b4ffb91b2ca9f63614e1ecaec9b.tar.gz
drakx-c38303069f287b4ffb91b2ca9f63614e1ecaec9b.tar.bz2
drakx-c38303069f287b4ffb91b2ca9f63614e1ecaec9b.tar.xz
drakx-c38303069f287b4ffb91b2ca9f63614e1ecaec9b.zip
(_gtk__ScrolledWindow) fix scrolled windows for WebKit
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index e800889c3..55abf2ead 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -571,7 +571,7 @@ sub _gtk__ScrolledWindow {
my $faked_w = $w;
if (my $child = delete $opts->{child}) {
- if (member(ref($child), qw(Gtk2::Layout Gtk2::Html2::View Gtk2::SimpleList Gtk2::SourceView::View Gtk2::Text Gtk2::TextView Gtk2::TreeView))) {
+ if (member(ref($child), qw(Gtk2::Layout Gtk2::Html2::View Gtk2::SimpleList Gtk2::SourceView::View Gtk2::Text Gtk2::TextView Gtk2::TreeView Gtk2::WebKit::WebView))) {
$w->add($child);
} else {
$w->add_with_viewport($child);
@@ -586,7 +586,7 @@ sub _gtk__ScrolledWindow {
$child->{to_bottom} = _allow_scroll_TextView_to_bottom($w, $child);
}
- if ($action eq 'gtknew' && ref($child) =~ /Gtk2::SimpleList|Gtk2::Html2|Gtk2::TextView|Gtk2::TreeView/) {
+ if ($action eq 'gtknew' && ref($child) =~ /Gtk2::SimpleList|Gtk2::Html2|Gtk2::TextView|Gtk2::TreeView|Gtk2::WebKit::WebView/) {
$faked_w = gtknew('Frame', shadow_type => 'in', child => $w);
}
}