From 8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 19 Feb 2003 18:03:03 +0000
Subject: better comply to look of text like in Gtk1 (text inside a Frame)

---
 perl-install/ugtk2.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index bf3006214..950801ae9 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -295,7 +295,11 @@ sub create_scrolled_window {
     $viewport_shadow and gtkset_shadow_type($w->child, $viewport_shadow);
     $W->can('set_focus_vadjustment') and $W->set_focus_vadjustment($w->get_vadjustment);
     $W->show;
-    $w
+    if (ref($W) eq 'Gtk2::TextView') {
+    	gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'in'), $w)
+    } else {
+	$w
+    }
 }
 
 sub n_line_size {
@@ -321,6 +325,7 @@ sub create_box_with_title {
 	my $has_scroll = $o->{box_size} < $wanted;
 
 	my $wtext = Gtk2::TextView->new;
+	$wtext->set_left_margin(3);
 	$wtext->can_focus($has_scroll);
 	chomp(my $text = join("\n", @_));
 	my $scroll = create_scrolled_window(gtktext_insert($wtext, $text));
-- 
cgit v1.2.1