From 91d8860c22341bf76dbb4c6f2199539e42db0a4d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Jan 2004 18:38:21 +0000 Subject: perl_checker cleanups --- perl-install/ugtk2.pm | 4 ++-- 1 file 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)); -- cgit v1.2.1