Why does my cursor doesn't change

[Zurd <zurd3 yahoo com>]

Hi, here's a very simple script.  I'm wondering why this program
doesn't change the cursor while it's looping to reach 99999999.
I have the same problem in my software.

If you comment the 'while' line, you'll see that the cursor do change.


use Gtk2 -init;
my $window = new Gtk2::Window('toplevel');
$window->signal_connect( "delete_event", sub{exit(0);} );
$window->show_all();
&test;
Gtk2->main;
exit(0);

sub test{
  my $cursor = Gtk2::Gdk::Cursor->new('watch');
  $window->window->set_cursor($cursor);
  my $t=0;
  while ( $t<9999999 ) { $t++; }
  if ( $t>0 ) { exit(0); }
}


p.s. the Gtk2-Perl POD documentation doesn't list Gtk2::Window->window 
to return a Gtk2::Gdk::Window.  You can see I'm using it in this example
since Gtk2::Window->set_cursor doesn't exist.

Thanks

__________________________________________________
Do You Yahoo!?
En finir avec le spam? Yahoo! Courriel vous offre la meilleure protection possible contre les messages non 
nollicités 
http://mail.yahoo.ca Yahoo! Courriel