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
|
/*
* Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
*
* Licensed under the LGPL, see LICENSE file for more information.
*
* $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/xs/GtkRadioToolButton.xs,v 1.3 2004/02/22 19:57:34 kaffeetisch Exp $
*/
#include "gtk2perl.h"
static GSList *
group_from_sv (SV * member_or_listref)
{
GSList * group = NULL;
if (member_or_listref && SvOK (member_or_listref)) {
GtkRadioToolButton * member = NULL;
if (SvTYPE (SvRV (member_or_listref)) == SVt_PVAV) {
AV * av = (AV*) SvRV (member_or_listref);
SV ** svp = av_fetch (av, 0, FALSE);
if (svp && *svp && SvOK (*svp))
member = SvGtkRadioToolButton (*svp);
} else
member = SvGtkRadioToolButton_ornull (member_or_listref);
if (member)
group = gtk_radio_tool_button_get_group (member);
}
return group;
}
static SV *
sv_from_group (GSList * group)
{
GSList * i;
AV * av = newAV ();
for (i = group ; i != NULL ; i = i->next)
av_push (av, newSVGtkRadioToolButton (i->data));
return newRV_noinc ((SV*)av);
}
MODULE = Gtk2::RadioToolButton PACKAGE = Gtk2::RadioToolButton PREFIX = gtk_radio_tool_button_
## this group implementation is similiar to what GtkRadioButton does.
## GtkToolItem *gtk_radio_tool_button_new (GSList *group);
GtkToolItem *gtk_radio_tool_button_new (class, SV * member_or_listref=NULL)
C_ARGS:
group_from_sv (member_or_listref)
## GtkToolItem *gtk_radio_tool_button_new_from_stock (GSList *group, const gchar *stock_id);
GtkToolItem *
gtk_radio_tool_button_new_from_stock (class, member_or_listref, stock_id)
SV * member_or_listref
const gchar * stock_id
C_ARGS:
group_from_sv (member_or_listref), stock_id
GtkToolItem *gtk_radio_tool_button_new_from_widget (class, GtkRadioToolButton_ornull *group);
C_ARGS:
group
GtkToolItem *gtk_radio_tool_button_new_with_stock_from_widget (class, GtkWidget_ornull *group, const gchar *stock_id);
C_ARGS:
(GtkRadioToolButton*)group, stock_id
##GSList * gtk_radio_tool_button_get_group (GtkRadioToolButton *button);
SV *
gtk_radio_tool_button_get_group (GtkRadioToolButton *button)
CODE:
RETVAL = sv_from_group (gtk_radio_tool_button_get_group (button));
OUTPUT:
RETVAL
##void gtk_radio_tool_button_set_group (GtkRadioToolButton *button, GSList *group);
void
gtk_radio_tool_button_set_group (button, member_or_listref)
GtkRadioToolButton *button
SV *member_or_listref
C_ARGS:
button, group_from_sv (member_or_listref)
|
