Help with gtk+ binding for perl6

[hdias]

Hello,

I'm doing a perl6 script that uses the NativeCall module to map GTK+ library functions.

The script can be seen below:

#!/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();

The script work and open a new window.

I'm trying to follow this example: http://developer.gnome.org/gnome-devel-demos/stable/image-viewer.c.html

Anyone know how to deal with the connect signals?

/* Exit when the window is closed */
g_signal_connect (window, "destroy", G_CALLBACK (gtk_main_quit), NULL)
+;

Thanks

[Anonymous Monk]

UTSL? http://cpansearch.perl.org/src/MSTROUT/Rakudo-Star-2012.08_001/rakudo-star/modules/zavolaj/lib/NativeCall.pm6 has

# Gets the NCI type code to use based on a given Perl 6 type.
my %type_map =
...
    'Callable' => 'callback';

so something something perl6 syntax of type Callable :)

perl6 nativecall callable -> http://perlcabal.org/syn/S21.html#Callable_objects