summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-12 16:39:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-12 16:39:14 +0000
commitdff746444b3fc778dbf9f818cc3247161548cebe (patch)
tree557dc643599c3d6a71beecbe82384fd880f4094a /perl-install/my_gtk.pm
parent8adabacd95f6a4455027f00084e39958fada6083 (diff)
downloaddrakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.gz
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.bz2
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.tar.xz
drakx-dff746444b3fc778dbf9f818cc3247161548cebe.zip
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm3
1 files changed, 2 insertions, 1 deletions
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}