summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-19 21:01:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-19 21:01:32 +0000
commitbdd65091d80665762010f21af35af795107fc7fe (patch)
tree5a9bd69e6cff4ceb8a9801d572d615fa2a9fb496 /perl-install/interactive/gtk.pm
parent15dcf43d21d3213a4b17980b1519a52e1ceb1183 (diff)
downloaddrakx-bdd65091d80665762010f21af35af795107fc7fe.tar
drakx-bdd65091d80665762010f21af35af795107fc7fe.tar.gz
drakx-bdd65091d80665762010f21af35af795107fc7fe.tar.bz2
drakx-bdd65091d80665762010f21af35af795107fc7fe.tar.xz
drakx-bdd65091d80665762010f21af35af795107fc7fe.zip
use $ugtk2::current_window in place of @interactive::objects (which was unused and broken)
=> fix XSetInputFocus (bugzilla #8046 and #8053)
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a8783e347..37e427f7f 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -751,8 +751,8 @@ sub wait_message_endW {
sub kill {
my ($_o) = @_;
- $_->destroy foreach $::WizardTable ? $::WizardTable->get_children : (), @tempory::objects, @interactive::objects;
- @tempory::objects = @interactive::objects = ();
+ $_->destroy foreach $::WizardTable ? $::WizardTable->get_children : (), @tempory::objects;
+ @tempory::objects = ();
}
sub ok {