From 7e9fd5a2028da2b964d000e6066529583ec16c67 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 13 Dec 2012 15:21:35 +0000
Subject: use mygtk2::register_main_window()

---
 perl-install/standalone/drakdvb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index d9bbecd69..2c5f3484a 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -31,7 +31,7 @@ my $title = N("DVB");
 $ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png";
 my $w = ugtk2->new($title);
 $w->{window}->signal_connect('destroy' => \&exitapp);
-$::main_window = $w->{real_window};
+mygtk2::register_main_window($w->{real_window});
 my $in = 'interactive'->vnew;
 
 my $config_file = "$ENV{HOME}/.mplayer/channels.conf";
-- 
cgit v1.2.1