summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-13 15:21:35 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-13 15:21:35 +0000
commit870cfb3896715d21d68114b952f3eb14d1caab12 (patch)
treed5835ef37f0189529f15eb7344a37278bd781732
parented5dc68ae2387d8eb1aec2c05c61772d9ba69e6d (diff)
downloaddrakx-backup-do-not-use-870cfb3896715d21d68114b952f3eb14d1caab12.tar
drakx-backup-do-not-use-870cfb3896715d21d68114b952f3eb14d1caab12.tar.gz
drakx-backup-do-not-use-870cfb3896715d21d68114b952f3eb14d1caab12.tar.bz2
drakx-backup-do-not-use-870cfb3896715d21d68114b952f3eb14d1caab12.tar.xz
drakx-backup-do-not-use-870cfb3896715d21d68114b952f3eb14d1caab12.zip
use mygtk2::register_main_window()
-rw-r--r--perl-install/diskdrake/hd_gtk.pm2
-rwxr-xr-xperl-install/standalone/drakboot2
-rwxr-xr-xperl-install/standalone/drakdvb2
-rwxr-xr-xperl-install/standalone/drakfont2
-rwxr-xr-xperl-install/standalone/drakups2
5 files changed, 5 insertions, 5 deletions
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"));
}