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/diskdrake/hd_gtk.pm | 2 +-
 perl-install/standalone/drakboot | 2 +-
 perl-install/standalone/drakdvb  | 2 +-
 perl-install/standalone/drakfont | 2 +-
 perl-install/standalone/drakups  | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 2ceb5ac40..8fa6ad83a 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -59,7 +59,7 @@ sub main {
     local $in->{grab} = 1;
 
     $w = ugtk2->new(N("Partitioning"));
-    $::main_window = $w->{real_window} if !$::isEmbedded && !$::isInstall;
+    mygtk2::register_main_window($w->{real_window}) if !$::isEmbedded && !$::isInstall;
 
     load_theme();
 
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 9f82073e1..47e4de3aa 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -78,7 +78,7 @@ sub run_boot_window {
 
     my $w = ugtk2->new($title);
     my $window = $w->{window};
-    $::main_window = $w->{real_window};
+    mygtk2::register_main_window($w->{real_window});
 
     $window->signal_connect(delete_event => sub { ugtk2->exit(0) });
     unless ($::isEmbedded) {
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";
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 0b8f9ec39..c4657ffc1 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -477,7 +477,7 @@ sub backend_mod() {
 sub interactive_mode() {
     $interactive = 1;
     $window1 = ugtk2->new(N("Font Installation"));
-    $::main_window = $window1->{real_window};
+    mygtk2::register_main_window($window1->{real_window});
     $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
     $window1->{rwindow}->set_position('center') if !$::isEmbedded;
     
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 8557aceff..4283e2e27 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -328,7 +328,7 @@ if (member('--wizard', @ARGV)) {
 
 $w = ugtk2->new(N("UPS Management"));
 if (!$::isEmbedded) {
-    $::main_window = $w->{real_window};
+    mygtk2::register_main_window($w->{real_window});
     $w->{window}->set_size_request(500, 550);
     $w->{rwindow}->set_title(N("DrakUPS"));
 }
-- 
cgit v1.2.1