From bc9c9324c35e0091cd3368b70c1dca58e4a8d8d5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 25 Sep 2008 11:21:35 +0000 Subject: (_gtk__ScrolledWindow) enable mcc to not display any shadow around HTML view when using scrollbars --- perl-install/NEWS | 1 + perl-install/mygtk2.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index fbd4b755d..2b0ee23d5 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,4 @@ +- enable mcc to not display any shadow around HTML view when using scrollbars - make sure mcc always have fillers Version 11.53 - 25 September 2008 diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 88b497870..9e4c870c8 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -601,7 +601,7 @@ sub _gtk__ScrolledWindow { $child->{to_bottom} = _allow_scroll_TextView_to_bottom($w, $child); } - if ($action eq 'gtknew' && ref($child) =~ /Gtk2::(Html2|SimpleList|TextView|TreeView|WebKit::WebView)/) { + if (!delete $opts->{no_shadow} && $action eq 'gtknew' && ref($child) =~ /Gtk2::(Html2|SimpleList|TextView|TreeView|WebKit::WebView)/) { $faked_w = gtknew('Frame', shadow_type => 'in', child => $w); } } -- cgit v1.2.1