From e5d2e80a09845619e90d736ac9c0f5fb3665574d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 18:56:16 +0200
Subject: perlish ->window => ->get_window

---
 perl-install/standalone/drakdvb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/drakdvb')

diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index bcbf4a9c9..2ced12974 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -56,7 +56,7 @@ sub detect_channels() {
     if (-s $config_file) {
         $in->ask_okcancel(N("Warning"), N("%s already exists and its contents will be lost", $config_file)) or return;
     }
-    gtkset_mousecursor_wait($w->{window}->window);
+    gtkset_mousecursor_wait($w->{window}->get_window);
     $channel_list->set_sensitive(0);
     $_->set_sensitive(0) foreach values %buttons;
 
@@ -73,7 +73,7 @@ sub detect_channels() {
         } else {
             $in->ask_warn(N("Error"), N("Could not get the list of available channels"));
         }
-        gtkset_mousecursor_normal($w->{window}->window);
+        gtkset_mousecursor_normal($w->{window}->get_window);
         $buttons{detect}->set_sensitive(1);
         $channel_list->set_sensitive(1);
     };
-- 
cgit v1.2.1