summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:38:21 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:38:21 +0000
commit91d8860c22341bf76dbb4c6f2199539e42db0a4d (patch)
tree38bce3712ec9c1861e3ec8739e7cd327eb21fc85 /perl-install/ugtk2.pm
parentad8ccaa26e21ce2a271a8163abd477cce6a965c4 (diff)
downloaddrakx-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/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm4
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));