From ec747dc1097a5f80d220311dc89e9d6ec32cab31 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 28 Nov 2002 13:26:25 +0000 Subject: perl_checker adaptations --- perl-install/ugtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk.pm') diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 63d9ba153..3ec92e77f 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -667,7 +667,7 @@ sub create_pix_text { $font and $style->font(Gtk::Gdk::Font->fontset_load($font)); } $fake_darea->set_style($style); - my ($width, $height, $lines, $widths, $heights) = get_text_coord ( + my ($width, $height, $lines, $widths, $heights) = get_text_coord( $text, $fake_darea, $max_width, $max_height, $can_be_greater, $can_be_smaller, $centeredx, $centeredy); my $pix; my $j = 0; -- cgit v1.2.1