Re^5: Can GTK3 be driven externally?

[Anonymous Monk]

Hi

Well, i only have gtk2 and I got

GLib-GObject-WARNING **: invalid (NULL) pointer instance 
GLib-GObject-CRITICAL **: g_signal_connect_data: assertion `G_TYPE_CHE
+CK_INSTANCE (instance)' failed 
...
Can't locate object method "timeout_add" via package "Gtk2"
...
Usage: Gtk2::main(class)

Checking around my harddisk i see

site\lib\Gtk2\api.pod
260:=item gtk_timeout_add    => Glib::Timeout->add
262:=item gtk_timeout_remove => Glib::Source->remove

Gtk2::api

So this is what finally works, you should try swapping Gtk2/Gtk3 and see if it works for you :)

#!/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__

https://grep.metacpan.org/search?qd=Gtk2&source=metacpan&q=Timeout

https://metacpan.org/source/XAOC/Gtk2-1.24993/examples/timeouttest.pl

https://metacpan.org/pod/Gtk3#Porting-from-Gtk2-to-Gtk3

https://wiki.gnome.org/Projects/GTK-Perl/Recipes

http://gtk2-perl.sourceforge.net/doc/

https://github.com/dave-theunsub/gtk3-perl-demos

[holandes777]

It runs properly when changing Gtk2 to Gtk3, thank you!