From f6dc934fdc80c05904fc4ab107acf94eba5622d8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 21:37:28 +0100
Subject: perlish ->style() => ->get_style()

---
 Rpmdrake/gurpm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/gurpm.pm b/Rpmdrake/gurpm.pm
index af3fb369..e532ff09 100644
--- a/Rpmdrake/gurpm.pm
+++ b/Rpmdrake/gurpm.pm
@@ -39,7 +39,7 @@ sub new {
     $mainw->{label} = gtknew('Label', text => $initializing, alignment => [ 0.5, 0 ]);
     # size label's heigh to 2 lines in order to prevent dummy vertical resizing:
     my $context = $mainw->{label}->get_layout->get_context;
-    my $metrics = $context->get_metrics($mainw->{label}->style->font_desc, $context->get_language);
+    my $metrics = $context->get_metrics($mainw->{label}->get_style->font_desc, $context->get_language);
     $mainw->{label}->set_size_request(-1, 2 * Pango->PANGO_PIXELS($metrics->get_ascent + $metrics->get_descent));
 
     $mainw->{progressbar} = gtknew('ProgressBar');
-- 
cgit v1.2.1