/*
* Copyright (c) 2003, 2014 by the gtk2-perl team (see the AUTHORS
* file for a full list of authors)
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
*
* See the LICENSE file in the top-level directory of this distribution for
* the full license terms.
*
*/
#include "pango-perl.h"
#if PANGO_CHECK_VERSION (1, 4, 0)
static GPerlCallback *
gtk2perl_pango_fontset_foreach_func_create (SV *func, SV *data)
{
GType param_types[2];
param_types[0] = PANGO_TYPE_FONTSET;
param_types[1] = PANGO_TYPE_FONT;
return gperl_callback_new (func, data, G_N_ELEMENTS (param_types),
param_types, G_TYPE_BOOLEAN);
}
static gboolean
gtk2perl_pango_fontset_foreach_func (PangoFontset *fontset, PangoFont *font, GPerlCallback *callback)
{
GValue value = {0,};
gboolean retval;
g_value_init (&value, callback->return_type);
gperl_callback_invoke (callback, &value, fontset, font);
retval = g_value_get_boolean (&value);
g_value_unset (&value);
return retval;
}
#endif /* 1.4.0 */
MODULE = Pango::Fontset PACKAGE = Pango::Fontset PREFIX = pango_fontset_
BOOT:
gperl_object_set_no_warn_unreg_subclass (PANGO_TYPE_FONTSET, TRUE);
## PangoFont * pango_fontset_get_font (PangoFontset *fontset, guint wc)
PangoFont *
pango_fontset_get_font (fontset, wc)
PangoFontset *fontset
guint wc
## PangoFontMetrics *pango_fontset_get_metrics (PangoFontset *fontset)
PangoFontMetrics *
pango_fontset_get_metrics (fontset)
PangoFontset *fontset
#if PANGO_CHECK_VERSION (1, 4, 0)
## void pango_fontset_foreach (PangoFontset *fontset, PangoFontsetForeachFunc func, gpointer data)
void
pango_fontset_foreach (fontset, func, data=NULL)
PangoFontset *fontset
SV *func
SV *data
PREINIT:
GPerlCallback *callback;
CODE:
callback = gtk2perl_pango_fontset_foreach_func_create (func, data);
pango_fontset_foreach (fontset,
(PangoFontsetForeachFunc)
gtk2perl_pango_fontset_foreach_func,
callback);
gperl_callback_destroy (callback);
#endif /* 1.4.0 */