diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 18:38:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 18:38:21 +0000 |
| commit | 91d8860c22341bf76dbb4c6f2199539e42db0a4d (patch) | |
| tree | 38bce3712ec9c1861e3ec8739e7cd327eb21fc85 /perl-install | |
| parent | ad8ccaa26e21ce2a271a8163abd477cce6a965c4 (diff) | |
| download | drakx-91d8860c22341bf76dbb4c6f2199539e42db0a4d.tar drakx-91d8860c22341bf76dbb4c6f2199539e42db0a4d.tar.gz drakx-91d8860c22341bf76dbb4c6f2199539e42db0a4d.tar.bz2 drakx-91d8860c22341bf76dbb4c6f2199539e42db0a4d.tar.xz drakx-91d8860c22341bf76dbb4c6f2199539e42db0a4d.zip | |
perl_checker cleanups
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index de786a1a6..50a426b44 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -48,7 +48,7 @@ unless ($::no_ugtk_init) { Gtk2->init; c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains; $::need_utf8_i18n = 1; - Gtk2->croak_execeptions() if 0.95 < $Gtk2::VERSION; + Gtk2->croak_execeptions if 0.95 < $Gtk2::VERSION; } @@ -327,7 +327,7 @@ sub create_box_with_title { my $scroll = create_scrolled_window(gtktext_insert($wtext, $text)); my $width = 400; $scroll->signal_connect(realize => sub { - my $layout = $wtext->create_pango_layout ($text); + my $layout = $wtext->create_pango_layout($text); $layout->set_width(($width - 10) * Gtk2::Pango->scale); $wtext->set_size_request($width, min(200, ($layout->get_pixel_size)[1] + 10)); $scroll->set_size_request($width, min(200, ($layout->get_pixel_size)[1] + 10)); |