From 8de97096ded5d83e23863097f4e230b02b45fbdb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 1 Jun 2004 13:16:15 +0000 Subject: 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) --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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 { -- cgit v1.2.1