GLib-GObject-WARNING **: invalid (NULL) pointer instance
GLib-GObject-CRITICAL **: g_signal_connect_data: assertion `G_TYPE_CHECK_INSTANCE (instance)' failed
...
Can't locate object method "timeout_add" via package "Gtk2"
...
Usage: Gtk2::main(class)
####
site\lib\Gtk2\api.pod
260:=item gtk_timeout_add => Glib::Timeout->add
262:=item gtk_timeout_remove => Glib::Source->remove
##
##
#!/usr/bin/perl --
use strict;
use warnings;
# use Gtk2;
use Gtk2 -init;
my $window = Gtk2::Window->new ('toplevel');
my $button = Gtk2::Button->new ('Quit');
$button->signal_connect (clicked => sub { Gtk2::main_quit });
$window->add ($button);
$window->show_all;
my $data = 'data';
# my $id = Gtk2->timeout_add(1000, \&handler, $data);
my $id = Glib::Timeout->add(1000, \&handler, $data);
Gtk2->main;
sub handler {
my ($data) = @_;
print "timed out ... @_\n";
# return 1 if you want the handler to be called again later
# return 0 to stop the handler from being called again
return 1;
}
__END__