gnome-perl Druid question




I'm using the following bit of code within a larger program:

  my $win = new Gtk::Window("toplevel");
  $win->signal_connect( "destroy", \&Gtk::main_quit );
  $win->signal_connect( "delete_event", \&Gtk::false );
  my $vbox = new Gtk::VBox( 0, 2 );
  $win->add($vbox);
  $vbox->show;
  my $druid = new Gnome::Druid;
  $druid->signal_connect("cancel", sub {$win->hide;});
  $vbox->pack_start($druid,0,0,0);
  $druid_start = new Gnome::DruidPageStart();
  $druid_start->set_title("test");
  $druid_start->set_text("This is a test.");
  $druid_start->show;
  $druid->append_page($druid_start);
  $druid_finish = new Gnome::DruidPageFinish();
  $druid_finish->set_title("Test Finished.");
  $druid_finish->set_text("This test is over.");
  $druid_finish->signal_connect("finish", sub {$win->hide;});
  $druid_finish->show;
  $druid->append_page($druid_finish);
  $druid->show;
  $win->show;

to pop up a druid window. The cancel signal works properly, but the
finish signal does not. I get the error:

        Cannot set argument of type gpointer (fundamental type
gpointer) at ./applet.pl line 87

Line 87, by the way, reads:
  gtk_main Gnome::Panel::AppletWidget;


Am I missing something?

BrYan




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