Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Help with gtk+ binding for perl6

by hdias (Novice)
on Feb 25, 2013 at 22:38 UTC ( #1020582=perlquestion: print w/ replies, xml ) Need Help??
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

Comment on Help with gtk+ binding for perl6
Select or Download Code
Re: Help with gtk+ binding for perl6
by Anonymous Monk on Feb 26, 2013 at 08:41 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1020582]
Approved by Limbic~Region
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2014-12-26 03:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (165 votes), past polls