hdias has asked for the wisdom of the Perl Monks concerning the following question:
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
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Help with gtk+ binding for perl6
by Anonymous Monk on Feb 26, 2013 at 08:41 UTC |
Back to
Seekers of Perl Wisdom