perlquestion
hdias
Hello,
<p>
I'm doing a perl6 script that uses the NativeCall module to map GTK+ library functions.
</p>
<p>
The script can be seen below:
</p>
<code>
#!/bin/env perl6
use NativeCall;
constant LIBGTK = 'libgtk-3.so';
constant GTK_WINDOW_TOPLEVEL = 0;
sub gtk_init(int, Str)
returns OpaquePointer
is native(LIBGTK)
is export { ... };
sub gtk_window_new(int)
returns OpaquePointer
is native(LIBGTK)
is export { ... };
sub gtk_window_set_title(OpaquePointer, Str)
is native(LIBGTK)
is export { ... };
sub gtk_container_set_border_width(OpaquePointer, int)
is native(LIBGTK)
is export { ... };
sub gtk_widget_show(OpaquePointer)
is native(LIBGTK)
is export { ... };
sub gtk_main()
is native(LIBGTK)
is export { ... };
gtk_init(0, "");
my $window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
gtk_window_set_title($window, "Test");
gtk_container_set_border_width($window, 200);
gtk_widget_show($window);
gtk_main();
exit();
</code>
<p>
The script work and open a new window.
</p>
<p>
I'm trying to follow this example: http://developer.gnome.org/gnome-devel-demos/stable/image-viewer.c.html
</p>
<p>
Anyone know how to deal with the connect signals?
</p>
<code>
/* Exit when the window is closed */
g_signal_connect (window, "destroy", G_CALLBACK (gtk_main_quit), NULL);
</code>
<p>
Thanks
</p>