From 7b90281fb2e73c5e70488b35312c2faa51f2d9ce Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 18:56:42 +0200
Subject: perlish ->allocation => ->get_allocation

---
 perl-install/mygtk3.pm            | 4 ++--
 perl-install/standalone/drakclock | 4 ++--
 perl-install/ugtk3.pm             | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index e3cb85268..9f5b68d1a 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -348,7 +348,7 @@ sub _gtk__Image {
             $w->signal_connect(expose_event => sub {
                                    my (undef, $event) = @_;
                                    if (!$w->{x}) {
-                                       my $alloc = $w->allocation;
+                                       my $alloc = $w->get_allocation;
                                        $w->{x} = $alloc->x;
                                        $w->{y} = $alloc->y;
                                    }
@@ -1589,7 +1589,7 @@ sub move_selection {
     my $layout = $w->{layout};
     $layout->{arrow_ydiff} ||=
       ($w->{selection_arrow}->get_pixbuf->get_height - $w->{selection_bar}->get_pixbuf->get_height)/2;
-    my $bar_y = $label->allocation->y - ($w->{selection_bar}->get_pixbuf->get_height - $label->allocation->height)/2;
+    my $bar_y = $label->get_allocation->y - ($w->{selection_bar}->get_pixbuf->get_height - $label->allocation->height)/2;
     $layout->move($w->{selection_bar}, 0, $bar_y);
     $layout->move($w->{selection_arrow}, $w->{arrow_x}, $bar_y - $layout->{arrow_ydiff}); # arrow is higer
     $_->show foreach $w->{selection_bar}, $w->{selection_arrow};
diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index de1b9d0c9..9396a0659 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -228,7 +228,7 @@ $timer = Glib::Timeout->add(120, \&update_time);
 
 $drawing_area->show;
 $my_win->{window}->show_all;
-my ($midx, $midy) = ($drawing_area->allocation->width/2, $drawing_area->allocation->height/2);
+my ($midx, $midy) = ($drawing_area->get_allocation->width/2, $drawing_area->get_allocation->height/2);
 $my_win->main;
 ugtk3->exit(0);
 
@@ -340,7 +340,7 @@ sub Repaint {
     my ($drawing_area, $o_update_time) = @_;
     my ($sec, $min, $hour) = localtime(time());
     time_to_rad($sec, $min, $hour) if $o_update_time;
-    my ($width, $height) = ($drawing_area->allocation->width, $drawing_area->allocation->height);
+    my ($width, $height) = ($drawing_area->get_allocation->width, $drawing_area->get_allocation->height);
     my $dRadians_hour_real = $dRadians_hour + $dRadians_min / 12;
     my $dRadians_min_real  = POSIX::floor($dRadians_min / $PI * 30) * $PI / 30;
     my $dRadians_sec_real  = $dRadians_sec;
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm
index 56c954b38..ac116a761 100644
--- a/perl-install/ugtk3.pm
+++ b/perl-install/ugtk3.pm
@@ -1464,7 +1464,7 @@ sub new {
                                # fix icon position when not using the default height:
                                (undef, undef, undef, $d_height) = $darea->get_window->get_geometry;
                                my $padding = int(($d_height - $height)/2);
-                               my $d_width = $darea->allocation->width;
+                               my $d_width = $darea->get_allocation->width;
                                my $x_blue = $is_rtl ? $d_width - $blue_width : 0;
                                my $x_icon = $is_rtl ? $d_width - 12 - $width : 12;
                                # here: 48 is the amount of white background in the blue background we wish to ignore:
-- 
cgit v1.2.1