From bff775caf7b3f37116bd3d9ab631125d1c16065a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Sep 2008 19:59:53 +0000 Subject: (_gtk__ScrolledWindow) simplify --- perl-install/mygtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 55abf2ead..c968681e5 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -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|Gtk2::WebKit::WebView/) { + if ($action eq 'gtknew' && ref($child) =~ /Gtk2::(SimpleList|Html2|TextView|TreeView|WebKit::WebView)/) { $faked_w = gtknew('Frame', shadow_type => 'in', child => $w); } } -- cgit v1.2.1