File: ClutterGtk.xs

package info (click to toggle)
clutter-perl 0.8.0.1-1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 652 kB
  • ctags: 42
  • sloc: perl: 645; ansic: 30; makefile: 3
file content (22 lines) | stat: -rw-r--r-- 587 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#include "clutterperl.h"

MODULE = Clutter::Gtk   PACKAGE = Clutter::Gtk  PREFIX = clutter_gtk_

=for apidoc
Special initialization function for the GTK+ integration.

You should use this function instead of Gtk2::init and Clutter::init
if you plan to use the L<Gtk2::ClutterEmbed> widget.
=cut
ClutterInitError
clutter_gtk_init (class=NULL)
    PREINIT:
        GPerlArgv *pargv;
    CODE:
        pargv = gperl_argv_new ();
        RETVAL = gtk_clutter_init (&pargv->argc, &pargv->argv);
        gperl_argv_update (pargv); 
        gperl_argv_free (pargv);
    OUTPUT:
        RETVAL