Why does my cursor doesn't change

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);} );

sub test{
  my $cursor = Gtk2::Gdk::Cursor->new('watch');
  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.


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

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]