From dff746444b3fc778dbf9f818cc3247161548cebe Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Sep 2000 16:39:14 +0000
Subject: no_comment

---
 perl-install/my_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/my_gtk.pm')

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 4d4fdfc43..0dd9f90f2 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -45,11 +45,12 @@ sub new {
 sub main($;$) {
     my ($o, $f) = @_;
     gtkset_mousecursor_normal();
+    my $idle = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal() });
     $o->show;
 
     do {
 	local $::setstep = 1;
-	Gtk->main
+	Gtk->main;
     } while ($o->{retval} && $f && !&$f());
     $o->destroy;
     $o->{retval}
-- 
cgit v1.2.1