summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-01 13:16:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-01 13:16:15 +0000
commit8de97096ded5d83e23863097f4e230b02b45fbdb (patch)
treea9199a156eea5eb471b844c82b48366d131daef0 /perl-install/ugtk2.pm
parent54ce1f8597c2186024ce4f25d055fca486c3f7b7 (diff)
downloaddrakx-8de97096ded5d83e23863097f4e230b02b45fbdb.tar
drakx-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.gz
drakx-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.bz2
drakx-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.xz
drakx-8de97096ded5d83e23863097f4e230b02b45fbdb.zip
when wizcancel occurs, ugtk2 object is not destroyed (the garbage collector seems to have some pbs taking care of this, but since many callbacks using it are registered, it's no wonder)
(fixes pressing "Cancel" on a ->ask_warn in wizard mode)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 1f43bdb4c..24cdf474b 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -970,7 +970,7 @@ sub main {
my ($o, $o_completed, $o_canceled) = @_;
gtkset_mousecursor_normal();
my $timeout = Glib::Timeout->add(1000, sub { gtkset_mousecursor_normal(); 1 });
- my $_b = MDK::Common::Func::before_leaving { Glib::Source->remove($timeout) };
+ my $_b = MDK::Common::Func::before_leaving { $o->destroy; Glib::Source->remove($timeout) };
$o->show;
do {