diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk3.pm | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakclock | 4 | ||||
| -rw-r--r-- | perl-install/ugtk3.pm | 2 |
3 files changed, 5 insertions, 5 deletions
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: |