summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakboot2
-rwxr-xr-xperl-install/standalone/drakdvb2
-rwxr-xr-xperl-install/standalone/drakfont2
-rwxr-xr-xperl-install/standalone/drakups2
4 files changed, 4 insertions, 4 deletions
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"));
}