From cffa15111fb73a3334e2e7f8fd653adcd16857cf Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 23 Nov 2005 14:26:41 +0000
Subject: make dialog variable local, to avoid crappy workarounds that don't
 even work

---
 perl-install/standalone/drakfont | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 8a0d7277f..987107807 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -106,7 +106,6 @@ my @application;
 my @install;
 my @uninstall;
 my $interactive;
-my $dialog;
 my $pbar;
 my $pbar1;
 my $pbar2;
@@ -623,7 +622,7 @@ sub exitdialog() { Gtk2->main_quit }
 
 sub dialog {
     my ($title, $widgets, $buttons, $o_main_loop) = @_;
-    $dialog = _create_dialog($title, { transient => $window1->{real_window} });
+    my $dialog = _create_dialog($title, { transient => $window1->{real_window} });
     $dialog->signal_connect(delete_event => \&exitdialog);
     gtkpack_($dialog->vbox, @$widgets);
     gtkpack($dialog->action_area, @$buttons) if $buttons;
@@ -658,8 +657,6 @@ sub advanced_install() {
             gtksignal_connect(Gtk2::Button->new(N("Remove Selected")), clicked => \&list_remove),
             gtksignal_connect($button = gtkset_sensitive(Gtk2::Button->new(N("Install fonts")), 0),
                               clicked => sub {
-                                  $dialog->destroy;
-                                  undef $dialog;
                                   import_status() if @install;
                               }),
             gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => \&exitdialog),
-- 
cgit v1.2.1