summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-19 18:03:03 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-19 18:03:03 +0000
commit8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e (patch)
treeee799802d9ebb2e59521c68f8eab4dc8c3330caf /perl-install
parente51846064f9849828bbd4deb5959f1a30a289b77 (diff)
downloaddrakx-8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e.tar
drakx-8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e.tar.gz
drakx-8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e.tar.bz2
drakx-8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e.tar.xz
drakx-8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e.zip
better comply to look of text like in Gtk1 (text inside a Frame)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 6 insertions, 1 deletions
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));