1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
/*
* $Header$
*/
#ifndef _GLADEXMLPERL_H_
#define _GLADEXMLPERL_H_
#include <gtk2perl.h>
#include <glade/glade-xml.h>
#ifdef GLADE_TYPE_XML
/* GObject derivative GladeXML */
# define SvGladeXML(sv) ((GladeXML*)gperl_get_object_check (sv, GLADE_TYPE_XML))
# define newSVGladeXML(val) (gperl_new_object (G_OBJECT (val), FALSE))
typedef GladeXML GladeXML_ornull;
# define SvGladeXML_ornull(sv) (((sv) && SvTRUE (sv)) ? SvGladeXML(sv) : NULL)
# define newSVGladeXML_ornull(val) (((val) == NULL) ? &PL_sv_undef : gperl_new_object (G_OBJECT (val), FALSE))
typedef GladeXML GladeXML_noinc;
#define newSVGladeXML_noinc(val) (gperl_new_object (G_OBJECT (val), TRUE))
#endif /* GLADE_TYPE_XML */
#endif /* _GLADEXMLPERL_H_ */
|