From cc7719684814fdeaa77eeadf79bc45d88a34f78d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 6 Aug 2004 06:29:04 +0000
Subject: (create_scrolled_window) adding 6px as left margin for TextView in
 scrolled Window

---
 perl-install/ugtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index c8475ed5b..562247d02 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -287,6 +287,7 @@ sub create_scrolled_window {
     }
     $o_viewport_shadow and gtkset_shadow_type($w->child, $o_viewport_shadow);
     $W->can('set_focus_vadjustment') and $W->set_focus_vadjustment($w->get_vadjustment);
+    $W->set_left_margin(6) if ref($W) =~ /Gtk2::TextView/;
     $W->show;
     if (ref($W) =~ /Gtk2::TextView|Gtk2::TreeView/) {
     	gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w)
-- 
cgit v1.2.1