From e241da0e6c74fd60ecc5e419e19d25e9406dacaa Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2008 13:43:06 +0000 Subject: (_gtk__ScrolledWindow) stop override left margin if already set to a sane value --- perl-install/mygtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mygtk2.pm') diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 63599757b..184dc1312 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -523,7 +523,7 @@ sub _gtk__ScrolledWindow { $w->add_with_viewport($child); } $child->set_focus_vadjustment($w->get_vadjustment) if $child->can('set_focus_vadjustment'); - $child->set_left_margin(6) if ref($child) =~ /Gtk2::TextView/; + $child->set_left_margin(6) if ref($child) =~ /Gtk2::TextView/ && $child->get_left_margin() <= 6; $child->show; $w->child->set_shadow_type(delete $opts->{shadow_type}) if exists $opts->{shadow_type}; -- cgit v1.2.1