diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-19 18:03:03 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-19 18:03:03 +0000 |
| commit | 8360a736c3ea00fa35ebfb7c2d0ec106b91aa48e (patch) | |
| tree | ee799802d9ebb2e59521c68f8eab4dc8c3330caf /perl-install/ugtk2.pm | |
| parent | e51846064f9849828bbd4deb5959f1a30a289b77 (diff) | |
| download | drakx-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/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
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)); |