From 3e33ebb9e2d5accc27107c6c087bbb29679dcdf9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jan 2005 09:33:50 +0000
Subject: the ugly gtkset_mousecursor_wait() done on destroy is not called
 often nowadays, and not very useful either since the wait cursor is only on
 the root window, and since install use isWizard, the root window is not often
 seen. We should at least also set the wait cursor on the $::WizardTable

---
 perl-install/ugtk2.pm | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a1d3a1100..86174d77e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -893,8 +893,6 @@ sub set_main_window_size {
 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 { $o->destroy; Glib::Source->remove($timeout) };
     $o->show;
 
     do {
@@ -911,7 +909,6 @@ sub show($) {
 sub destroy($) {
     my ($o) = @_;
     $o->{rwindow}->destroy if !$o->{destroyed};
-    gtkset_mousecursor_wait();
     flush();
 }
 sub DESTROY { goto &destroy }
-- 
cgit v1.2.1