1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*
*
* Copyright (C) 2003 by the gtk2-perl team (see the file AUTHORS for the full
* list)
*
* 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 GNU Library General Public
* License for more details.
*
* You should have received a copy of the GNU Library General Public License
* along with this library; if not, write to the Free Software Foundation,
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307 USA.
*
* $Id$
*/
/* TODO: error handling could stand to be improved, or at least thought about */
#include "gtk2spellperl.h"
GtkSpell *
SvGtkSpell (SV * sv)
{
if (!sv || !SvOK (sv) || sv == &PL_sv_undef || ! SvROK (sv))
return NULL;
if( !sv_derived_from (sv, "Gtk2::Spell"))
croak("variable is not of type Gtk2::Spell");
return (GtkSpell*)SvIV(SvRV(sv));
}
SV *
newSVGtkSpell (GtkSpell * spell)
{
SV * sv;
if( !spell )
return &PL_sv_undef;
sv = newSV(0);
sv_setref_pv(sv, "Gtk2::Spell", spell);
return(sv);
}
MODULE = Gtk2::Spell PACKAGE = Gtk2::Spell PREFIX = gtkspell_
GtkSpell *
gtkspell_new (class, view, lang=NULL)
GtkTextView * view
const gchar * lang
ALIAS:
Gtk2::Spell::new_attach = 1
PREINIT:
GError * error = NULL;
CODE:
RETVAL = gtkspell_new_attach(view, lang, &error);
if( !RETVAL )
gperl_croak_gerror("Gtk2::Spell->new_attach", error);
OUTPUT:
RETVAL
CLEANUP:
PERL_UNUSED_VAR (ix);
GtkSpell *
gtkspell_get_from_text_view (class, view)
GtkTextView * view
CODE:
RETVAL = gtkspell_get_from_text_view(view);
if( !RETVAL )
XSRETURN_UNDEF;
OUTPUT:
RETVAL
void
gtkspell_detach (spell)
GtkSpell * spell
gboolean
gtkspell_set_language (spell, lang)
GtkSpell * spell
const gchar * lang
PREINIT:
GError * error = NULL;
CODE:
RETVAL = gtkspell_set_language(spell, lang, &error);
if( !RETVAL )
gperl_croak_gerror("Gtk2::Spell->set_language", error);
OUTPUT:
RETVAL
void
gtkspell_recheck_all (spell)
GtkSpell * spell
|
