From 581d70ff9bbdb93dca53e1c46ddb10b2b1eaa945 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 21:37:27 +0100
Subject: perlish ->window => ->get_window

---
 rpmdrake.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'rpmdrake.pm')

diff --git a/rpmdrake.pm b/rpmdrake.pm
index e5697957..13c287b6 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -394,14 +394,14 @@ sub wait_msg {
 	)
     );
     $mainw->sync;
-    gtkset_mousecursor_wait($mainw->{rwindow}->window) unless $options{no_wait_cursor};
+    gtkset_mousecursor_wait($mainw->{rwindow}->get_window) unless $options{no_wait_cursor};
     $mainw->flush;
     $mainw;
 }
 
 sub remove_wait_msg {
     my $w = shift;
-    gtkset_mousecursor_normal($w->{rwindow}->window);
+    gtkset_mousecursor_normal($w->{rwindow}->get_window);
     $w->destroy;
 }
 
@@ -429,7 +429,7 @@ sub statusbar_msg {
     my ($msg, $o_timeout) = @_;
     #- always use the same context description for now
     my $cx = $::statusbar->get_context_id("foo");
-    $::w and $::w->{rwindow} and gtkset_mousecursor_wait($::w->{rwindow}->window);
+    $::w and $::w->{rwindow} and gtkset_mousecursor_wait($::w->{rwindow}->get_window);
     #- returns a msg_id to be passed optionnally to statusbar_msg_remove
     my $id = $::statusbar->push($cx, $msg);
     gtkflush();
@@ -448,17 +448,17 @@ sub statusbar_msg_remove {
     } else {
 	$::statusbar->pop($cx);
     }
-    $::w and $::w->{rwindow} and gtkset_mousecursor_normal($::w->{rwindow}->window);
+    $::w and $::w->{rwindow} and gtkset_mousecursor_normal($::w->{rwindow}->get_window);
 }
 
 sub slow_func_statusbar ($$&) {
     my ($msg, $w, $func) = @_;
-    gtkset_mousecursor_wait($w->window);
+    gtkset_mousecursor_wait($w->get_window);
     my $msg_id = statusbar_msg($msg);
     gtkflush();
     $func->();
     statusbar_msg_remove($msg_id);
-    gtkset_mousecursor_normal($w->window);
+    gtkset_mousecursor_normal($w->get_window);
 }
 
 my %u2l = (
-- 
cgit v1.2.1