Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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:


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 = ''; 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:

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) +;


Replies are listed 'Best First'.
Re: Help with gtk+ binding for perl6
by Anonymous Monk on Feb 26, 2013 at 08:41 UTC

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1020582]
Approved by Limbic~Region
and the questions are moot...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2018-02-22 07:34 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (288 votes). Check out past polls.