From ef918297c8f6ca912fb61028b59f4a049c08683c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 12 Nov 2013 01:04:08 +0100 Subject: perlish ->style() => ->get_style() --- perl-install/ugtk3.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk3.pm') diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index ea275e5ce..47b91b510 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -676,7 +676,7 @@ sub set_back_pixbuf { my $window = $widget->get_window; my ($width, $height) = ($pixbuf->get_width, $pixbuf->get_height); my $pixmap = Gtk3::Gdk::Pixmap->new($window, $width, $height, $window->get_depth); - $pixbuf->render_to_drawable($pixmap, $widget->style->fg_gc('normal'), 0, 0, 0, 0, $width, $height, 'max', 0, 0); + $pixbuf->render_to_drawable($pixmap, $widget->get_style->fg_gc('normal'), 0, 0, 0, 0, $width, $height, 'max', 0, 0); $window->set_back_pixmap($pixmap, 0); } -- cgit v1.2.1