[gtk2-perl-xs] Setting a cursor on a label

[Jörn Reder <joern zyn de>]

Hiho,

I have a problem setting a cursor on a label. I'm trying something like
this:

  my $label = Gtk2::Label->("Test");
  $label->show;

  my $event = Gtk2::EventBox->new;
  $event->show;
  $event->add($label);

  my $cursor = Gtk2::Gdk::Cursor->new ("GDK_HAND2");
  $event->window->set_cursor($cursor);

but $event->window is not defined. I thought I have to call 
$event->realize to get the window, but that crashes the program with a 
long dump of critical assertions, so I'm obviously doing something 
wrong.

Can somebody help?

Thanks,

Joern

-- 
Joern Reder
Development Head ZYN! Coding Division - http://www.zyn.de/

Attachment: pgpWIOCsWLxVe.pgp
Description: PGP signature