diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-06-01 13:16:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-06-01 13:16:15 +0000 |
| commit | 8de97096ded5d83e23863097f4e230b02b45fbdb (patch) | |
| tree | a9199a156eea5eb471b844c82b48366d131daef0 /perl-install | |
| parent | 54ce1f8597c2186024ce4f25d055fca486c3f7b7 (diff) | |
| download | drakx-backup-do-not-use-8de97096ded5d83e23863097f4e230b02b45fbdb.tar drakx-backup-do-not-use-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.gz drakx-backup-do-not-use-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.bz2 drakx-backup-do-not-use-8de97096ded5d83e23863097f4e230b02b45fbdb.tar.xz drakx-backup-do-not-use-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')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
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 { |